DM 3,80 6S 30 sfr 3,80 


a2 — 


Schneider 6128 


Bits und die Bibel 


computer 
rs 


Her 32 


Inhalt 


An der Leine 
Roboter als Übungsobjekte 


Funktionelles 
Listen über Listen 


Bits und Bibel 


Programm für Theologen 


Musik liegt in der Luft 
Professionelle Programme 


Tod im Sumpf? 
Dem Ende entgegen 


Minenspiel 
Verfeinerungen erhöhen Spielreiz 


Leihbücherei 
Zeitsparende Technik für Projekte 


Guter Tastsinn 
Flächenabtasten durch Roboter 


Allzweckgerät 
Größerer Schneider-Computer 


Musterhaft 
BASIC-Programm für Mustererkennung 


Absolut super 
Die Elite der Großrechner 


Ein- und Ausgabe 


Assemblerprogrammierung 


Fachwörter von A—Z 


WIE SIE JEDE WOCHE IHR HEFT BEKOMMEN 
Computer Kurs ist ein wöchentlich erscheinendes Sammelwerk. Die Gesamt- 
zahl der Hefte ergibt ein vollständiges Computer-Nachschlagewerk. Damit 
Sie jede Woche Ihr Heft erhalten, bitten Sie Ihren Zeitschriftenhändler, Com- 
puter Kurs für Sie zu reservieren. 


Zurückliegende Hefte 
Ihr Zeitschriftenhändler besorgt Ihnen gerne zurückliegende Hefte. Sie kön- 
nen sie aber auch direkt beim Verlag bestellen. 


Deutschland: Das einzelne Heft kostet DM 3,80. Bitte füllen Sie eine Post- 
zahlkarte aus an: Marshall Cavendish Int. Ltd. (MCI), Sammelwerk-Service, 
Postgiroamt Hamburg 48064-202, Postfach 105703, 2000 Hamburg 1, Kenn- 
wort: Computer Kurs 


Österreich: Das einzelne Heft kostet öS 30. Bitte füllen Sie eine Zahlkarte 
aus an: Computer Kurs, Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
7857201 oder legen Sie Ihrer Bestellung einen Verrechnungsscheck bei. 
Kennwort: Computer Kurs 


Schweiz: Das einzelne Heft kostet sfr 3,80. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 


Abonnement 

Sie können Computer Kurs auch alle 2 Wochen (je 2 Ausgaben) per Post zum 
gleichen Preis im Abonnement beziehen. Der Abopreis für 12 Ausgaben be- 
trägt DM 45,60 inkl. Mwst., den wir Ihnen nach Eingang der Bestellung be- 
rechnen. Bitte senden Sie Ihre Bestellung an: Marshall Cavendish Int. Ltd. 
(MCI), Sammelwerk Service, Postgiroamt Hamburg 86853-201, Postfach 105703, 
2000 Hamburg 1, Kennwort: Abo Computer Kurs. Bitte geben Sie an, ab wel- 
cher Nummer das Abo beginnen soll und ob Sie regelmäßig für jeweils 12 Fol- 
gen einen Sammelordner wünschen 


WICHTIG: Bei Ihren Bestellungen muß der linke Abschnitt der 
Zahlkarte Ihre vollständige Adresse enthalten, damit Sie die 
Hefte schnell und sicher erhalten. Überweisen Sie durch Ihre 
Bank, so muß die Überweisungskopie Ihre vollständige An- 
schrift gut leserlich enthalten. 


SAMMELORDNER 

Sie können die Sammelordner entweder direkt bei Ihrem Zeitschriftenhändler 
kaufen (falls nicht vorrätig, bestellt er sie gerne für Sie) oder aber Sie bestellen 
die Sammelordner für den gleichen Preis beim Verlag wie folgt: 


Deutschland: Der Sammelordner kostet DM 12. Bitte füllen Sie eine Zahl- 
karte aus an: Marshall Cavendish International Ltd. (MCI), Sammelwerk-Ser- 
vice, Postgiroamt Hamburg 48064-202, Postfach 106703, 2000 Hamburg 1, 
Kennwort: Sammelordner Computer Kurs 


Österreich: Der Sammelordner kostet öS 98. Bitte füllen Sie eine Zahlkarte 
aus an: Computer Kurs Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
7857201 oder legen Sie Ihrer Bestellung einen Verrechnungsscheck bei. 
Kennwort: Sammelordner Computer Kurs 


Schweiz: Der Sammelordner kostet sfr 15. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 


INHALTSVERZEICHNIS 

Alle 12 Hefte erscheint ein Teilindex. Die letzte Ausgabe von Computer Kurs 
enthält den Gesamtindex — darin einbezogen sind Kreuzverweise auf die 
Artikel, die mit dem gesuchten Stichwort in Verbindung stehen 


Redaktion: Winfried Schmidt (verantw. f. d. Inhalt), Elke Leibinger, Susanne 
Brandt, Uta Brandl (Layout), Sammelwerk Redaktions-Service GmbH, Paul- 
straße 3, 2000 Hamburg 1 


Vertrieb: Marshall Cavendish International Ltd., Heidenkampsweg 74, 
2000 Hamburg. 1 


Ei 


© APSIF, Copenhagen, 1982, 1983; © Orbis Publishing Ltd., 1982, 1983; 
© Marshall Cavendish Ltd., 1984, 1985, 1986; Druck: E. Schwend GmbH, 
Schmollerstraße 31, 7170 Schwäbisch Hall 


An der 
Leine 


Relativ billige Bodenroboter 
(„Schildkröten“) sind vor allem in 
Schulen bei der Ausbildung im 
Programmieren beliebte Übungs- 
objekte. Auch der hier beschrie- 
bene „Penman Plotter“ gehört in 
diese Kategorie. 


eil der Acorn B sehr flexible Schnittstel- 

len bietet und in England in Schulen ein- 
gesetzt wird, gibt es dafür eine Vielzahl didak- 
tisch orientierter Peripheriegeräte. Über et- 
liches von diesem Zubehör wurde hier bereits 
berichtet, unter anderem über Plotter, Mäuse 
und Bodenroboter — der „Penman Plotter“ er- 
hebt den Anspruch, alles in einem zu sein. 

Das Penman-Paket besteht aus Steuerein- 
heit, Zeichenroboter, Netzteil, RS232-Anschluß- 
kabel und Betriebssoftware. Bei Nichtge- 
brauch lassen sich Steuereinheit und Zeichen- 
gerät zu einem kompakten Kästchen von nur 
55x128x335 mm Größe zusammensetzen. Um 
den Roboter aus seiner „Höhle“ zu befreien, 
drücken Sie auf einen Clip an der Unterseite 
der Steuereinheit und ziehen den Einsatz aus 
dem Gehäuse heraus. Die Verbindung zwi- 
schen Steuereinheit und Roboter stellt ein 
Flachbandkabel her. Am Plotter selbst finden 
Sie drei Aufnahmebuchsen für Zeichenstifte 
und außerdem eine zentrale Bohrung, in die 
ein weiterer Stift für Turtle-Grafik paßt. Die 
40mm langen Filzstiftpatronen werden nach 
dem Einsetzen durch gefederte Klammern 
knapp über dem Papier in Bereitschaft gehal- 
ten. Wenn mit einem Stift gezeichnet werden 
soll, zieht ein Elektromagnet den betreffenden 
Federbügel herunter und die Schreibspitze 
drückt durch das Eigengewicht der Patrone 
aufs Papier. 

An der Unterseite hat der Roboter drei Rä- 
der, von denen zwei angetrieben werden. Das 
dritte — eine kleine Kunststoffrolle mit losem 
Schwenklager — hält nur das Gleichgewicht. 
Die Metall-Antriebsräder tragen einen rauhen 
Belag, der die Reibung auf dem Papier verbes- 
sert. Vor beiden Rädern ist jeweils ein Lichtde- 
tektor angebracht. Aufgrund des Helligkeits- 
unterschieds zwischen Papier und Unterlage 
wird so der Rand des Blatts erkannt. 

Das Plottergehäuse enthält drei Elektroma- 
gnete zur Betätigung der Schreibstifte und die 
beiden Elektromotoren für den Radantrieb. Da- 
bei handelt es sich nicht um Schrittmotoren, 
sondern um normale Gleichstromtypen, mit de- 
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nen sich glatte Kurven anstelle von feinen 
Treppen malen lassen. Weil hier die Motor- 
spannung ständig variiert werden muß, ist al- 
lerdings der Aufwand bei der Betriebssoftware 
höher als bei Schrittmotoren, wo nur die rich- 
tige Anzahl von Impulsen vorzugeben ist. 


Steuerung mit Rückmeldung 


Auf einer kleinen Leiterplatte sind die Lei- 
stungselektronik und die Decodierer unterge- 
bracht, die die Entschlüsselung der Steue- 
rungsinformationen für die Magnete und die 
Motoren besorgen. Jede Motorachse trägt eine 
Schlitzscheibe, die zwischen einer Lichtquelle 
und einer Fotodiode hindurchläuft. Dabei wird 
der Lichtstrahl periodisch unterbrochen. Und 
die Fotodiode gibt dementsprechend eine Im- 
pulsfolge an die Logik auf der kleinen Platine 
weiter, die dann der Steuereinheit die Informa- 
tionen zur Bestimmung der Roboterposition 
übermittelt. Dank dieser Rückmeldung kann 
der Penman (bei abgeschaltetem Antrieb) 
ohne weiteres als Maus verwendet werden. 
Der Computer kennt Drehrichtung und -ge- 


Der Penman besteht 
aus zwei Teilen: der 
Steuereinheit, die über 
eine RS232-Schnittstelle 
mit dem Rechner ver- 
bunden wird, und der 
beweglichen „Schild- 
kröte“. Das Flachband- 
kabel zwischen beiden 
dient zur Datenübertra- 
gung. Die Steuereinheit 
sendet darüber ihre 
Anweisungen für den 
Bewegungsablauf, und 
der Roboter meldet der 
Steuerung kontinuier- 
lich seine Positionsän- 
derungen. 
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schwindigkeit der Räder und kann den Cursor 
auf dem Bildschirm entsprechend nachführen. 

Das Innenleben des Steuergeräts besteht im 
wesentlichen aus einer großen Leiterplatte, auf 
der drei Chips besonders ins Auge fallen. Da 
ist zuerst der aus dem 6800 entwickelte Pro- 
zessorbaustein 6803, der sich durch hohe Fle- 
xibilität auszeichnet. Er enthält ein 128-Byte- 
RAM, das als „Merkzettel“ für die Plotterposi- 
tion verwendet wird. Der zweite auffällige Chip 
ist das Parallel-Interface 6821, über das der 
6803 die Ein- und Ausgabe abwickelt. Und der 
dritte ist ein 8-KByte-EPROM mit den Demon- 
strationsprogrammen, die der Penman ohne 
Verbindung mit dem Rechner auch ganz allein 
ausführen kann. 

Es sind die verschiedensten Betriebsarten 
vorgesehen. Im „Terminal Emulator“-Modus ist 
die unmittelbare Steuerung per Tastatur mög- 
lich. Dazu laden Sie die Pentlk-Software entwe- 
der direkt oder über das Hauptmenü, indem 
Sie den Roboter als Maus benutzen. Steht das 
Programm im Speicher, werden die Tastatur- 


befehle über die RS232-Schnittstelle in Form 
von ASCII-Zeichen an die Steuereinheit gesen- 
det. Die Eingabe von PRINT initialisiert den 
Penman. Bei der Befehlsübernahme erkennt 
das Gerät, welche der drei möglichen Übertra- 
gungsraten (300, 1200 oder 9600 Baud) einge- 
stellt ist. Danach kann der Roboter durch Drük- 
ken von „H" (für Home) zum Aufsuchen der 
Startposition aufgefordert werden. Dies ist die 
linke untere Ecke des Blattes. 


Die Home-Position 


Der Plotter findet sie, indem er mit Hilfe der 
optischen Sensoren zunächst den unteren 
Rand des Papiers sucht. Dort dreht er nach 
rechts und forscht nach der linken Kante des 
Bogens. Um einen ausreichenden Kontrast zwi- 
schen Papier und Untergrund sicherzustellen, 
liefert die Herstellerfirma vorsorglich ein 
schwarzes Blatt als Unterlage mit. Nachdem 
die Home-Position erreicht ist, legt der Penman 
im Abstand von 50 mm vom unteren und vom 
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Er ermöglicht dem 


Penman eine gewisse 


Selbständigkeit bei 
der Ausübung der 
i Funktionen. 
Netzteilbuchse 
Zum Anschluß des 
mitgelieferten exter- 
nen Nettzteils. PROM 


Es hat eine Kapazität 
von 8 KByte, in denen 
das Betriebssystem 

des Penman unterge- 


ya en 
bracht ist. 
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Zum Heben und Sen- 
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linken Papierrand den Koordinatenursprung 
fest (die 50 mm sind der Abstand der Mittel- 
bohrung von der Turtle-Vorderkante). 

Die Pentlk-Software unterstützt nicht nur die 
direkte Einzelbefehl-Eingabe, sondern auch 
den programmgesteuerten Betrieb durch Be- 
fehlsketten, die mit LOAD, SAVE und RUN ge- 
handhabt werden. Im „Terminal Emulator“-Mo- 
dus erfolgt die Bewegung in kartesischen Ko- 
ordinaten, das heißt wie auf Millimeterpapier. 
Die Anweisung, den Punkt (500, 500) anzulau- 
fen, bewirkt je 500 Zehntelmillimeter-Schritte 
in x- und in y-Richtung. Auf einem DIN-A4-Blatt 
sind maximal 2100 x- und 2970 y-Schritte mög- 
lich. Dem „Marschbefehl“ MOVE ist ein A oder 
ein R voranzustellen, je nachdem ob absolute 
(auf den Ursprung bezogene) oder relative 
(auf die derzeitige Position bezogene) Zielko- 
ordinaten angegeben werden. Die Schreibstift- 
steuerung erfolgt über LOGO-ähnliche Kom- 
mandos wie „U“ für „Pen Up“ (Stift heben), „D“ 
für „Pen Down“ (Senken) und „P" für „Pen Se- 
lect“ (Auswahl des gewünschten Stiftes). 

Auch ein Turtlegrafik-Betrieb ist bei direkter 
Eingabe möglich. Allerdings ist dies etwas um- 
ständlich, weil die Streckenlängen anders als 
kartesische Koordinaten hexadezimal einge- 
geben werden müssen. Das System greift 
dann unter Umgehung der Umrechnung unmit- 
telbar auf die Speicherplätze zu, in denen die 
Steuerinformation steht. Sie können die Turtle- 
grafik aber mit Hilfe der mitgelieferten Soft- 
ware auch in LOGO programmieren. 


Der Robotics-Modus 


Im „Robotics"-Modus wird der Plotter direkt 
über die einzelnen Bits des User-Port-Datenre- 
gisters gesteuert. Zum Beispiel geben BitO und 
l sowie Bit 2 und 3 die Spannung für den rech- 
ten bzw. linken Motor vor. Bit 4 und 5 sind für 
weitere Motorfunktionen wie das Ein- und Aus- 
schalten zuständig, Bit 6 für die Schreibstift-Be- 


Unter ständiger Kontrolle 


Damit die Steuerung 
„weiß“, wo sich der Plot- 
ter gerade aufhält, ist 
eine ständige Überwa- 
chung des Bewegungs- 
ablaufs unerläßlich. Auf 
jeder Achse ist eine ra- 
dial geschlitzte Metall- 
scheibe befestigt, die 
von einer Leuchtdiode 
angestrahlt wird. 

Auf der gegenüberlie- 
genden Seite der jeweili- 
gen Scheibe ist eine Fo- 
todiode angebracht, die 
die Lichtblitze beim Dre- 
hen der Scheibe in eine 
Folge elektrischer Im- 
pulse umsetzt. Aus der 
Anzahl der Impulse läßt 
sich errechnen, wieweit 
sich der Plotter bewegt 
hat. 


Filzstift 


tätigung. Außerdem sendet der Penman über 
das Datenregister Rückmeldungen, etwa bei 
einer Fehlpositionierung oder beim Erreichen 
des Papierrands. 

Sie können den Penman auch Texte schrei- 
ben lassen. Der Befehlsvorrat entspricht weit- 
gehend dem der gängigen Printer/Plotter für 
Heimcomputer, und selbst in der Form der Zei- 
chen gibt es kaum Unterschiede. Sie haben 
die Wahl zwischen Schrifthöhen von 1 bis 
127mm und vier verschiedenen Schreibrich- 
tungen. Außerdem ist Schrägschrift möglich, 
was konventionelle Printer/Plotter meist nicht 
zu bieten haben. 

Die mitgelieferte Dokumentation enthält 
eine vollständige Befehlsliste mit einigen Er- 
läuterungen zur Implementierung und eine Be- 
schreibung der Hardware. Allerdings setzt sie 
für den Anfänger vielleicht etwas zu hoch an. 
Die Dokumentation scheint sich an Benutzer zu 
richten, die sich mit ihrem Rechner schon 
gründlich auskennen. 

Der Penman Plotter ist als ein weiterer 
Schritt in der Entwicklung eines universellen 
Turtle-Plotters anzusehen. Bei richtitgem Ge- 
brauch nähert sich seine Zeichengenauigkeit 
schon dem Bereich konventioneller Profi-Ge- 
räte. Für den kommerziellen Einsatz fehlt im 
Augenblick vor allem geeignete Software. Das 
derzeitige Paket ist vorwiegend für Ausbil- 
dungszwecke gedacht. Vom Benutzer wird er- 
wartet, daß er sich die Programme für den Plot- 
terbetrieb selbst schreibt, um dabei das Prin- 
zip der Robotersteuerung kennenzulernen. 
Daran ist ein professioneller Anwender, der 
auf leichte Handhabung Wert legt, natürlich 
wenig interessiert. 

Für die Ausbildung ist der Penman Plotter 
eine solide Sache. Es gibt auf dem Markt zwar 
billigere Geräte. Diese sind aber weniger viel- 
seitig verwendbar. Mit dem Penman lassen 
sich die verschiedensten Anwendungsberei- 
che demonstrieren. 


Fotodiode 


Motor 


Leuchtdiode 


Elektromagnet 


Geschlitzte Metallscheibe 


Funktionelles 
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Wir zeigen, wie sich innerhalb von 
Listen andere Listen anlegen lassen, 
und definieren eigene Funktionen. 


n der ersten Folge hatten wir untersucht, 

wie LISP veranlaßt wird, eine Liste als 
Datenliste und nicht als Funktion anzuse- 
hen. So ordnet 

(SETOX 'ABCDEF) 


der Variablen X die Liste ( ABCDEF) zu, 
wobei jedes Listenelement ein String mit 
einem einzigen Zeichen ist. Was aber pas- 
siert, wenn D, E und F Strings mit einzel- 
nen Zeichen wären, A,BundC aber Varia- 
blen mit den Werten 2, 4und 8? Für diesen 
Fall müssen wir X die Liste (248DEF) 
zuordnen. Dies geschieht mit der neuen 
Funktion LIST, die eine Liste ihrer Argu- 
mente aufbaut. 
(SETO x "(LIST 'A 'B 'C 'D ’'E 'F)) 


bringt das gleiche Ergebnis wie das vo- 
rige Beispiel, während: 
(SETO X '(LISTABC 'D 'E 'Ä) 


die Liste (248DEF‘) zuordnet. Durch das 
Fehlen der Anführungsstriche werden A, 
B und © bewertet. Ebenso weist 

(SETO X (LIST 1 2 4 "(PLUS 4 4)) 


der Variablen X die Liste (1 24 (PLUS 4 4) 
zu, wobei das vierte Listenelement selbst 
wiederum eine Liste mit den drei Elemen- 
ten PLUS, 4 und 4 ist. PLUS wurde nicht 
bewertet, da ein Anführungszeichen vor 
dem Ausdruck steht. 

(SETO X (LIST 124 (PLUS 4 4)) 


ordnet X jedoch die Liste (1 2 4 8) zu, da 
PLUS bewertet wurde. Ein einziges Anfüh- 
rungszeichen erzeugt diesen Unterschied. 
Mit dem Konzept läßt sich auch eine Liste 
von Listen aufbauen: 
(SETO PERSON '((KLAUS BLOCK) (171 
1960))) 


ordnet der Variablen PERSON eine Daten- 
liste zu, deren zwei Elemente wiederum 
Listen sind. Die erste Liste enthält zwei 
Elemente, die aus Zeichen bestehen, und 
die zweite Liste drei numerische Ele- 
mente. Innerhalb der Liste lassen sich 
weitere Listen anlegen. 

Bisher haben wir uns die Funktionen 
SETO, LIST, PLUS und TIMES angesehen. 
LISP verfügt jedoch noch über viele wei- 


tere Funktionen, deren Einsatz von der 
Anwendung abhängt. 

Bevor wir uns ansehen, wie Funktionen 
angelegt werden, untersuchen wir zu- 
nächst drei Grundfunktionen, die in allen 
LISP-Versionen zu finden sind: CAR, CDR 
und CONS. Der Name CONS steht für das 
Wort CONStruct, während CAR und CDR 
aus einer der ersten Anwendungen stam- 
men und Abkürzungen für „Contents of 
Address Register“ und „Contents of De- 
crement Register“ sind. 


CAR und CDR 


CAR und CDR müssen in jedem Fall ein 
einziges Argument haben, das eine Liste 
mit mindestens einem Element sein muß. 
Ausgeschlossen ist die „leere Liste“ oder 
NIL, die 

\) 


geschrieben wird. Die Funktion CAR lie- 
fert als Ergebnis das erste Element des Li- 
stenarguments. 

(CAR '(1 2 34 5)) 


hat daher als Ergebnis die ganze Zahl |. 
Das Ergebnis kann aber auch eine Liste 
sein. Indem Ausdruck 

(CAR '((1 2) (3 4) 5)) 


ist das erste Element die Liste (12). 
Die Funktion CDR liefert alle Elemente 
einer Liste außer dem ersten. So ergibt 
(CDR '(1 2 345)) 


die Liste (2345) und 
(CDR '((1 2) (3 4) 5)) 


die Liste ((3 4) 5). 

Die Funktion CONS fügt das erste Argu- 
mentan das zweite an. 

(CONS '(1 2) '((3 4) 5)) 


ergibt daher die Liste ((1 2) (34) 5). 
Die Funktionen CAR und CDR werden 
oft ineinander verschachtelt. So ergibt 
(CDR '((1 2) (3.4) 8) 


die Liste ((34) 5) und 
(CAR (CDR '((1 2) (3 4) S))) 


(3 4) — eigentlich (CAR '((3 4) 5)) —, wäh- 
rend 
(CAR (CAR (CDR '((1 2) (3 4) 5)))) 


den Wert 3 liefert — (CAR '(3 4)). 


Da diese Verschachtelungen recht lä- 
stig werden können, erlaubt LISP Abkür- 
zungen. Die Funktionsnamen fangen da- 
bei zwar immer noch mit C an und enden 
mit R, können dazwischen aber jede be- 
liebige Anzahl As (für CAR) oder Ds (für 
CDR) enthalten. Das Acormsoft-LISP läßt 
jedoch nur bis zu drei Einfügungen zu. 
Der letzte Ausdruck ließe sich nun auch 

(CAAR (CDR '((1 2) (3 4) 5))) 


schreiben oder 
(CAR (CADR '((1 2) (3 4) 5))) 


oder auch 
(CAADR '((1 2) (3 4) 5)) 
Alle Versionen liefern das Ergebnis 3. 
Funktionen werden mit der Funktion 
DEFUN definiert, die drei Argumente 
braucht und folgendes Format hat: 
(DEFUN a (b) (c)) 


Dabei ist ader Name der Funktion, b die 
Parameterliste (ähnlich wie in PASCAL 
oder Acorn-B-BASIC) und c eine Listen- 
struktur mit dem Hauptteil der Funktion. 
Wenn wir beispielsweise oft mit 8 multipli- 
zieren müssen, könnten wir natürlich je- 
desmal schreiben: 
(TIMES 8 N) 


wobei N die zu multiplizierende Zahl dar- 
stell. Eine selbstdefinierte Funktion 
könnte jedoch die gleiche Aufgabe aus- 
führen: 

(DEFUN TIMES (N) (TIMES 8 N)) 


Die Funktion TIMES nimmt N als Argu- 
ment, multipliziert diese Zahl über die 
Standardfunktion mit 8 und liefert das Er- 
gebnis. 

(TIMES 11) 


ergibt 88. 

Bevor wir weitere Funktionen definie- 

ren, wollen wir jedoch erst einmal ein 
“ wichtiges Programmierkonzept untersu- 
chen: die Bedingung (COND). Sie ist etwa 
so wichtig wie der IF...THEN-Befehl in 
BASIC. 

Auch Bedingungen haben in LISP die 
Form von Funktionen: 

(COND (Bedingung! Ausdruck1) 

(Bedingung2 Ausdruck?) 


(BedingungX AusdruckX)) 


Beachten Sie, daß diese Funktion sich 
über mehrere Zeilen erstrecken muß, um 
überhaupt ausreichend Platz zu haben. 
Diese Anordnung wird in LISP oft einge- 
setzt, da die Sprache an der letzten Klam- 
mer erkennt, wo das Ende des Ausdrucks 
liegt. 


Die COND-Funktion ähnelt dem CASE- 
Befehl von PASCAL. Dabei wird Bedin- 
gungl bewertet. Ist sie wahr, dann liefert 
Ausdruckl das Ergebnis. Ist sie falsch, 
wird Bedingung2 getestet etc. Einige 
LISP-Versionen (auch Acomsoft-LISP) ver- 
langen, daß zumindest eine der Bedingun- 
gen („Aussagen“ genannt) wahr ist. Dies 
läßt sich jedoch leicht durch das Hinzufü- 
gen einer Endbedingung erreichen: 

(COND (Bedingung! Ausdruck1) 

(Bedingung2 Ausdruck2) 


(COND (T Letzter Ausdruck)) 
Das Zeichen T stellt hier „True“ (wahr) 
dar. Der letzte Ausdruck (falls er erreicht 
wird) ist immer bewertbar. In LISP ist: 

T = True = Nicht Null 


und 
F= False = Null = () 


Die Klammern stellen die leere Liste dar. 
Wir können nun schon kompliziertere 
Funktionen definieren. 

Fast alle BASIC-Dialekte kennen die 
Funktion ABS, die als Ergebnis den positi- 
ven Wert ihres Arguments liefert. Das 
heißt: ein positives Argument bleibt unver- 
ändert, ein negatives wird umgekehrt. In 
LISP hat diese Funktion folgendes Format: 

(DEFUN ABS (X) 

(Funktionsinhalt)) 
wobei X ein ganzzahliges Argument ist. 
Mit der Bedingungsfunktion COND sieht 
die vollständige ABS-Funktion folgender- 
maßen aus: 

(DEFUN ABS (X) 

(COND ( (MINUSP X) (MINUS X)) 
(T X))) 
Die Definition enthält zwei neue Funktio- 
nen. Die Testfunktion MINUSP liefert 
einen Wert, wenn das Argument eine ne- 
gative Zahl ist. Bei einer positiven Zahl ist 
das Ergebnis „False“. Ist die Bedingung 
wahr, negiert die Funktion MINUS ihr Ar- 
gument, wenn nicht, liefert T (die immer 
wahr ist) den ursprünglichen Wert. 


Dieses einfache Pro- 
gramm zum Auffinden 
von Daten zeigt den 
Einsatz der Funktionen 
CDR und EQ. Dabei lie- 
fert eine vom Anwen- 
der eingegebene Auto- 
nummer - falls in der 
Datenbank des Pro- 
gramms vorhanden - 
diese Nummer und den 
Nachnamen des 
Besitzers. 
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Bits und Bibel 


„The Word“ ist ein speziell auf den englischsprachigen 
Theologiestudenten ausgerichtetes Programm mit Such- und 
Indexfunktionen. Obwohl dieses Paket sich an einen begrenzten 
Anwenderkreis richtet, enthält es Programmiertechniken, die auch in 
vielen anderen Bereichen eingesetzt werden könnten. 


inige Berufe oder Studiengänge erfordern 

häufig das Durchsuchen langer Texte nach 
bestimmten Wörtern. So arbeiten Bibelstuden- 
ten mit sogenannten Konkordanzen (Spezial- 
indizes) für die 39 Bücher des Alten und die 27 
Bücher des Neuen Testaments — insgesamt 
etwa 750 000 Wörter. 

Im allgemeinen eignen sich Computer be- 
stens für das Durchsuchen großer Textmengen, 
doch setzen die relativ kleinen Speicher- und 
Diskettenkapazitäten der Heimgeräte hier oft 
enge Grenzen. Speziell für Microcomputer gibt 
es jetzt jedoch ein Programm, das das Auffin- 
den von Bibelstellen erleichtert. „The Word“ fin- 
det dabei nun nicht nur bestimmte Textstellen, 
sondern legt auch Indizes an, die die Suchzeit 
erheblich verkürzen. 

Der Umfang der von den Programmierern ge- 
leisteten Arbeit wird schon beim Öffnen des Pa- 
ketes deutlich. Das Handbuch ist zwar nur ein 
dünnes Büchlein von 36 Seiten, das Programm 
mit den biblischen Textdateien besteht jedoch 
aus sieben doppelseitigen Disketten, die alle 
kopiert werden müssen. Bei einem einseitigen 
Diskettenlaufwerk mit 40 Spuren sind sogar 14 
Disketten für Arbeitskopien nötig. 


Es werde Licht 


„The Word“ muß sorgfältig installiert werden. 
Obwohl die Programmierer nicht davon ausge- 
hen konnten, daß die meisten Theologiestu- 
denten sich auch mit Computern gut ausken- 
nen, ist das BASIC-Programm recht kompliziert 
aufgebaut. Zum Beispiel akzeptiert es nur PC- 
DOS. Der BASIC-Interpreter und die System- 
spuren müssen von der DOS-Diskette auf die 
Programmdiskette kopiert werden. Dann kann 
der Student wählen, ob er das Programm 'TWP 
aufrufen will (wenn er einen IBM PC besitzt) 
oder die Version ATWP (bei einem IBM-kompa- 
tiblen Gerät) oder eine Spezialversion für Com- 
puter mit einem Arbeitsspeicher von nur 64 
KByte: TWP 64. Ein erfahrener Anwender würde 
nun davon ausgehen, daß nach Installation der 
Systemspuren, dem BASIC und den Program- 
men die Diskette automatisch booten würde. 
Doch es gibt kein Programm hierfür. 

Schon beim Aufrufen der Titelseite ist er- 
kennbar, daß es sich nicht um gewöhnliche 
Software handelt, da außer dem üblichen Copy- 


rightvermerk („Diese Software ıst durch die 
Copyrightgesetze der USA geschützt") auch ein 
passendes Bibelzitat aufgeführt wird (hier in 
deutsch wiedergegeben): 
EXODUS 20: 15 „Du sollst nicht stehlen.“ 
Danach folgt das Hauptmenü (im Original na- 
türlich englisch): 


<F1> — HILFSTEXTE AUFBLENDEN 

<F2> — STEUEROPTIONEN SETZEN 

<F3> — DRUCK IST ABGESCHALTET. 
ANSCHALTEN 

<F4> — BEREICH: 

<F5> — ENDE DER BEARBEITUNG 

<F6> — INDEX AUFBAUEN 

<F7> — INDEX ANZEIGEN ODER 
VERÄNDERN 

<F8> — INDIZES VERBINDEN 

<F9> — INDEX LÖSCHEN 


<F10> — TEXTE ANZEIGEN 
<F2> blendetein Untermenü mit neun Steuer- 
möglichkeiten auf, darunter die Bildschirm- 
breite (40 oder 80 Zeichen), die linke und rechte 
Randbreite des Druckers, Zeilenabstand, An- 
zahl der Zeilen pro Seite, maximale Index- 
größe, Anzeige eines Textes (oder einer Reihe 
von Texten im Zusammenhang) und die Namen 
aller Indizes auf der aktuellen Diskette. 

<F4> gibt die Möglichkeit, mit der großen 
Datenmenge fertigzuwerden, indem ein be- 
schränkter Bereich festgelegt wird, der bear- 
beitet werden soll. Mit einer aus drei Buch- 
staben bestehenden Kennzeichnung der Bibel- 
bücher (von „Gen“ bis „Rev“ für „Offenbarung“) 
und den Zahlen für Kapitel und Vers kann An- 
fang und Ende des Suchbereichs angegeben 
werden. Die Kapitel- und Verszahlen können 
weggelassen werden, wenn ein ganzes Buch 
bearbeitet werden soll. 

Nach dem Einlegen der entsprechenden Dis- 
kette können die Kapitel betrachtet werden. 
<F10> blendet den ersten Vers des Suchbe- 
reichs auf. Mit den auf dem unteren Bildschirm- 
rand aufgeblendeten Funktionstasten kann 
man nun im Text vor- und zurückblättern. Die 
Steueroption <F8> veranlaßt, daß nichtnurein 
Vers angezeigt wird, sondern auch die angren- 
zenden Texte im Zusammenhang. 

Mit <F2> lassen sich Suchkriterien einrich- 
ten. Wie bei den meisten anderen Datenban- 
ken kann jedes Vorkommen eines Wortes ge- 
sucht werden, selbst in zusammengesetzten 


Wörtern. Die Suche nach dem Wort „man“ 
würde dabei auch „demand“ zutage fördern. Es 
kann jedoch auch nur nach dem vollständigen 
einzelnen Wort gesucht werden. Auch soge- 
nannte „Wild Cards“ sind möglich. Dabei wer- 
den alle Wörter gefunden, die mit der gesuch- 
ten Buchstabenkombination anfangen oder en- 
den. Nach Eingabe der Kriterien werden die 
Textstellen entweder einzeln oder im Zusam- 
menhang angezeigt. 

Mit <F6> werden automatisch oder per 
Hand Indizes angelegt. Die Indizes lassen sich 
editieren (beispielsweise die Löschung nicht 
gewünschter Verweise) und zusammenlegen 
(zwei oder mehr) — vorausgesetzt, die Grenze 
von 1020 Einträgen pro Index wurde nicht über- 
schritten. Die Grenze kann jedoch mit <F2> 
bis auf 54 040 heraufgesetzt werden. Enthältein 
Index mehr als 1020 Einträge, wird er stück- 
weise gespeichert. So entsteht eine Pause zwi- 
schen dem Eintrag 1020 und 1021, da der näch- 
ste Teilindex erst von der Diskette geladen wer- 
den muß. Der Anwender kann auch eigene In- 
dizes mit den Themen der Verse eingeben. 

Abgesehen von den Problemen bei der Ver- 
waltung großer Textmengen, hat The Word 
noch mit völlig anderen Schwierigkeiten zu 
kämpfen. Das Programm basiert auf der (engli- 
schen) King-James-Version von 16ll. In den 
letzten drei Jahrhunderten hat sich jedoch die 
Bedeutung vieler Wörter radikal verändert. Wie 
die Übersetzer derrevidierten Version von 1952 


angeben, sind über dreihundert Bedeutungs- 
änderungen eingetreten. Dabei sind Fehler, die 
seit dem 17. Jahrhundert durch die Entdeckung 
genauerer, ursprünglicherer Texte zutage tra- 
ten, noch nicht berücksichtigt. 

Das Zusatzprogramm, „Ihe Greek Translite- 
rator", beseitigt dieses Problem jedoch zumin- 
dest für das Neue Testament. Das Programm 
durchsucht den griechischen Text nach einem 
bestimmten Wort der King-James-Version. Da- 
bei erscheint außer dem ursprünglichen grie- 
chischen Wort (in römischer Schrift, nicht in 
griechischen Buchstaben) auch die Definition 
und — falls notwendig — die Häufigkeit des Vor- 
kommens und die Bedeutungen, die es in ver- 
schiedenen Zusammenhängen angenommen 
hat. Indizes, die mit TWP aufgebaut wurden, 
funktionieren auch mit dem Zusatzprogramm, 
und auch griechische Indizes sind möglich. 

Bis zum heutigen Tage existiert noch kein 
Programm für das hebräische Alte Testament, 
obwohl in Jerusalem bereits ein Großcomputer 
den gesamten Talmud und zugeordnete Werke 
speichert. Ein sinnvolles computerisiertes Bi- 
belstudium läßt sich eher mit einer öffentlichen 
Datenbank als mit einem individuellen Textsy- 
stem durchführen. Die in The Word eingesetz- 
ten Techniken sind jedoch sehr interessant und 
lassen sich vermutlich auch für die kritische Be- 
trachtung anderer großer Textmengen einset- 
zen: die Werke von Shakespeare, Goethe oder 
auch die von Marx und Engels. 


Text-Suche 


TG 


Gesucht wird der Bezug zu Drachen 


Bei der Suche nach 
dem Wort „Drachen“ 
fand The Word diese 
und andere Textstellen. 
Wie eine Konkordanz 
vereinfacht das Pro- 
gramm die Suche nach 
identischen biblischen 
Ideen, Symbolen und 
Persönlichkeiten. Dem 
System liegt die (eng- 
lische) King-James- 
Version der Heiligen 
Schrift zugrunde. 


Drachen I 


Ihr Wein ist Drachengift'und 
 wütiger Ottern Galle. 
5. Mose 32:33 


Du zertrennst dag Mleer durch 
deine Kraft und zerbrichst die Köpfe 
der Drachen im Wasser. 

Psalm 74:13 


Iesaja 51:9 


Predige und sprich: So spricht der Berr: Siehe, 
ich will an dich, Pharao, du König in Agppten, du 
großer Drache, der du in deinem Wasser liegst 
und sprichst: Der Strom ist mein, und ich 

habe ihn mir gemacht. 

Besehiel 29:3 


Wohlauf, wohlauf, ziehe Macht 

an, du Arm des Herrn! Wohlauf, wie 
borzeiten, von alters her! Bist du es 
nicht, der die Stolzen zerhauen und 
den Drachen verwundet hat? 


\ 


Auf Löwen und Ottern wirst du 
gehen, und treten auf junge Löwen 
und Drachen. 


Psalm 9:13 


Und es erschien ein anderes Zeichen 
im Dimmel, und siehe, ein großer, 
roter Drache, der hatte sieben 
Häupter und zehn Hörner und auf 
seinen Däuptern sieben Rronen. 
Offenbarung 12:3 


Drachen 2 


Du AMlenschenkind, mache eine 
Wehklage über Pharao, den König bon 
Ägppten, und sprich zu ihm: Du bist 
gleich wie ein Löwe unter den Beiden 
und wie ein Meerdrache und springst in 
deinen Strömen und rührst das Wasser 
auf mit deinen Füßen und machst 

seine Ströme trüb. 

Deschiel 32:2 
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Tod im Sumpf? 


Unser Adventure-Projekt nähert sich langsam dem Ende. Wir 
besprechen in diesem Kapitel die Ausarbeitung der letzten beiden 
Orte von Haunted Forest - den Sumpf und das Dorf -, und das Listing 
für unser Digitaya-Abenteuer wird vervollständigt. 


ls erstes geht es um den Sumpf von Haun- 

ted Forest. Auch hier muß eine Rahmen- 
handlung festgelegt werden, bevor mit dem 
Programmieren begonnen werden kann. Diese 
Handlung kann nach Belieben kompliziert oder 
einfach gehalten sein. Eine zu komplexe Hand- 
lung kann aber einen enormen Programmier- 
aufwand und eine übermäßige Belegung des 
verfügbaren Speicherplatzes bewirken. 

Es wird folgende Rahmenhandlung ange- 
nommen: Sobald der Spieler den Sumpf betritt, 
versinkt er. Alle „normalen“ Befehle sind ver- 
fügbar, den Sumpf aber kann er nur verlassen, 
indem er ihn durchschwimmt. 

Schwimmen ist nur möglich, wenn weniger 
als zwei Objekte mitgeführt werden, da deren 
Gewicht den Spieler nach unten zieht. Notfalls 
muß ein Objekt abgelegt werden, das damit 
verloren ist und später nicht mehr aufgenom- 
men werden kann. 


4878 REM xxx%* SWAMP S/R Krk 

4875 SF=1 

4888 SN$="YOU START TO SINK INTO THE SWAMP.":GOSUB 
soo 

4885 PRINT: INPUT" INSTRUCTIONS"7 IS$ 

4899 GOSUB2S@Q:REM SPLIT INSTRUCTION 

4895 IF F=® THEN 4885:REM INVALID 

4900 GOSUB3ABA:REM NORMAL INSTRUCTIONS 

4918 IF VB$="LOOK" THENGOSUB2988:G0T04885 

4915 IF VB$="DROP"THEN IV$(F,2)="-2":REM OBJ LOST 
FOREVER 

4917 IF VF=1 THEN 4885:REM NORMAL COMMAND 

4928 REM ** NEW COMMANDS *%* 

4925 IF VB$<>"SWIM"THEN SN$="I DON'T UNDERSTAND" :G 
OSUBSS599:G60T04885 

4930 REM ** SWIM x*%* 

4922 F=® 

4935 FOR I=1 TO 2 

4948 IF IC$C1I)<>""THEN:F=F+l 
‚4958 NEXT I 

4955 IF F<2 THENGOSUBS®35:RETURN:REM SWIM AWAY 
49690 GOSUB 5899:RETURN:REM TWO OBJS HELD 

5800 REM *+** TWO OBJECTS: HELD S/R xu#%« 

s91® SN$="THE OBJECTS ARE WEIGHING YOU DOWN AND YO 
U ARE SINKING.":GOSUBSSO8 

sa12 PRINT: INPUT" INSTRUCTIONS": 1IS$ 

5915 GOSUB2S5@8:REM SPLIT INSTRUCTION 

59298 IF VB$<>"DROP" THENGOSUBSBSB:REM SINK 

5925 GOSUB3IBB: IV$(CF,2)="-2":REM DROP OBJ 

503® IF HF=®8 OR F=® THEN 5889:REM SINK 

5035 REM #+*%* SWIM AWAY rk 

3049 SN$="YOU CAN NOW SWIM THROUGH THE SWAMP. WHIC 
H WAY WILL YOU 60?" :G0SUB5598 

sasa EX$(2)="09080695" :GOSUB2399:REM DEFINE AND DI 
SPLAY EXITS 

5855 PRINT: INPUT" INSTRUCTIONS"; IS$ 

SO6D GOSUB2SAQ:REM SPLIT INSTRUCTION 

5862 IF F=B8 THEN 5055:REM INVALID 

5065 GOSUB3S@9:REM MOVE 

5067 EX$(2)="BAOBB98B":REM ZERO EXIT DATA 

Ssa7a RETURN 

5075 : 

5888 REM #xkk SINK S/R xur%« 

5985 SN$="YOU SINK INTO THE SWAMP AND DROWN" :GOSUB 
5508 

52999 END 


Die Zeilen 4870 bis 4917 ermöglichen unter Ver- 
wendung der bisher erstellten Unterroutinen 
eine Handhabung aller normalen Befehle. Will 
der Spieler am Rande des Sumpfes ein Objekt 
ablegen, wird die DROP-Routine ausgerufen. 
Diese Routine setzt die Position des abgelegten 
Objektes jedoch in der Hauptübersicht IV$(,) 
unter Verwendung des aktuellen Wertes des 
Ortszählers P ein: Das Objekt verbleibt im 
Sumpf, solange das Programm arbeitet. Soll ein 
Objekt, das in den Sumpf geworfen wurde, ge- 
löscht werden, müssen wir den Inhalt des 
Strings IV$(,) aktualisieren. 

IVS(F,2) enthält die Position von Objekt F. In 
der Regel ist dies die Ortszahl oder —1, wenn 
der Spieler das Objekt trägt. Um das Objekt aus 
dem Spiel zu entfernen, darf IV$(F,2) nicht mehr 
als Ort bzw. als Anzeige für den Spieler inter- 
pretiert werden. In Zeile 4915 erhält IV$(F,2) den 
Wert —2, wobei F bereits durch die DROP-Rou- 
tine als relevantes Objekt bezeichnet wurde. 

Wählt der Spieler SWIM aus, verzweigt das 
Programm zur Zeile 4930, Hier wird eine Inven- 
tur vorgenommen, um zu prüfen, wieviele Ob- 
jekte der Spieler bei sich trägt. Bei weniger als 
zwei Objekten ruft das Programm die Unterrou- 
tine SWIM AWAY auf, durch die der Spieler den 
Sumpf verlassen kann. Trägt der Spieler zwei 
Objekte, kann er eines ablegen. Nimmt er 
diese Chance nicht wahr, versinkt er. 


SWIM-AWAY öffnet Ausgänge 


Die SWIM-AWAY-Routine ermöglicht eine An- 
gabe der Schwimmrichtung. Die Ausgangsda- 
ten für den Sumpf in der Original-DATA- 
Anweisung sind 00000000. Dies heißt, es gibt 
keinen Ausgang aus dem Sumpf. Zeile 5050 de- 
finiert nun die Ausgangsdaten neu und ruft die 
Unterroutine auf, in der die Ausgänge angege- 
ben werden. Der Spieler kann einen Ausgang 
wählen und so den Sumpf verlassen. Die Aus- 
gangsdaten werden am Ende der Routine wie- 
der auf O gesetzt. Bei einem neuen Betreten des 
Sumpfes kann der Spieler diesen nicht mehr 
verlassen. 

Das Dorf liegt am Fluchtweg aus Haunted Fo- 
rest, obwohl der Spieler noch mehrere Aufga- 
ben lösen muß, bevor das Spiel beendet ist. Als 
Rahmenhandlung verwenden wir folgendes: 
Das Dorf ist von einer hohen, unüberwindlichen 
Mauer mit einem bewachten Tor umgeben. Um 


in das Dorf zu gelangen, muß der Spieler zuerst 
die Wache mit dem Gewehr töten. Dann muß er 
das Tor mit einem Schlüssel öffnen, um den 
Wald verlassen zu können. 

Die DORF-Routine besteht aus zwei Teilen. 
Zuerst muß die Wache beseitigt und dann das 
Tor mit dem Schlüssel geöffnet werden. Es ist 
nicht schwer, sich vorzustellen, wie der Spieler 
mit einem Gewehr das Dorf erreicht und die 
Wache tötet, um dann festzustellen, daß er zum 
Betreten des Dorfes einen Schlüssel braucht. 
Hat er den Schlüssel nicht, muß er den Ort ver- 
lassen, um ihn zu suchen. Kommt der Spieler 
dann wieder zum Dorf zurück, darf die Wache 
hier nicht mehr zu sehen sein. Nach dem Schuß 
muß also die Wache vom Programm entfernt 
werden, und bei einem neuerlichen Durchgang 
darf sie nicht wieder erscheinen. 


Die Wache lebt 


Das klingt schwerer als es ist. Mittels eines 
Flags kann erkannt werden, ob die Wache tot 
ist. Dazu wird die Variable GF verwendet, die 
anfangs auf Osteht (Wache lebt). Tötet der Spie- 
ler die Wache, wird die Variable auf 1 gesetzt. 
Der Wert von GF kann beim Betreten des Dorfes 
abgefragt werden, um festzustellen, ob die Wa- 
che lebt oder nicht. Ist keine Wache vorhanden, 
kann der Spieler sofort ans Tor gehen. Mit den 
bisher erstellten Unterroutinen können nun An- 
weisungen aufgeteilt und gehandhabt werden. 
Hat der Spieler den Schlüssel bei sich und öff- 
net damit das Tor, ist er am Ziel angekommen, 
und das Spiel ist beendet. 


5108 REM x+** VILLAGE S/R kA*% 

sı92 SF=1 

51085 SN$="THE VILLAGE 15 SURROUNDED BY A TALL WALL 
. ":GOSUBSSOO 

5ıaßs IF GF{>® THEN GOSUBS198:RETURN:REM GATE 

5197 SN$="A GUARD IS AT THE ENTRANCE GATE TO THE V 
ILLAGE " :GOSUBSS9® 

5115 PRINT: INPUT" INSTRUCTIONS"; IS$ 

5120 GOSUB2508:IF F=® THEN 5115:REM INVALID 

5125 GOSUB3BBH:REM NORMAL INSTRUCTIONS 

sıs30*ır VB$="LOOK"THEN GOSUB2808:REM DESCRIBE 
5135 IF VBS#"G0" AND MF=1 THEN RETURN 

5148 IF VF=1 THEN 5S1i15:REM NEXT INSTRUCTION 

5145 IF VB$<>"KILL"THENSN$="I DON'T UNDERSTAND" :GO 
SUBSS99:GOTOS115 

5158 REM x* KILL *%* 

5155 SN$="WHAT WILL YOU USE TO KILL THE GUARD?" :GO 
SUBSS88 

5169 SN$="ENTER OBJECT OR <I> FOR INSTRUCTION" :GOS 
UB5598 

5162 INPUT IS$:IF IS$="I" THEN 5115 

5165 GOSUB2S@9:REM SPLIT 

5167 IF F=8 THEN 5168:REM INVALID 

5170 GOSUBS3@Q: IF F=9- THEN SN$="THERE IS NO 
OSUBS580:G0T05168 

5172 OV=F:GOSUBS459:REM IS OBJECT HELD 

5174 IF HF=8 THEN SN$="YOU DO NOT HAVE THE "+IVS$(CF 
+19:G0OSUBS509:G0TO5 168 
5175 IF F<>1 THEN SN$="THE 
: GOSUBSS09:G0TOS16® 

5189 SN$="YOU KILL THE GUARD" :GOSUBSS8B8:GF=1 

5185 : 

5198 REM x*x*%* LOCKED GATE S/R Kkk# 

3195 SN$="YOU MOVE FORWARD AND TRY TO OFEN THE GAT 
E TO THE VILLAGE" 

5200 SN$=SN$+" BUT THE GATE 15 LOCKED AND WILL NOT 
MOVE" :GOSUBS598 

5285 PRINT: INPUT" INSTRUCTIONS"7 IS$ 

s210 GOSUB25@9: IF F=8 THEN 5285:REM INVALID 

5215 GOSUB3O98:REM NORMAL INSTRUCTIONS 

s2298 IF VB$="LOOK"THEN GOSUB2988:REM DESCRIBE 

s225 IF VB$="G60" AND MF=1 THEN RETURN 


"+W$:G 


"+IV$(CF,1)+" IS NO USE" 


IF VF=1 THEN S285:REM NEXT INSTRUCTION 
IF VB$&="USE"THEN 5248 
IF VB$="UNLOCK " THENSN$= "HOW?" :GOSUBSS88 :GOTOS 


5235 SN$="I DON'T UNDERSTAND" :GOSUBS599:G0T05285 
5248 GOSUBS38O9:REM VALID OBJECT 

5242 OV=F:G0OSUBS459:REM IS 0BJ CARRIED 

5244 IF F=®8 THEN SN$="THERE IS NO "+W$:G0SUB5598:G 
0T05295 

5246 IF HF=® THEN SN$="YOU DO NOT HAVE THE 
1):GOSUBSS89 :G0OTOS295 

5248 IF F<>3 THEN SN$="THE "+IV$(CF,1)+" 15 NO USE" 
: GOSUBSS89:G0T052085 

5258 REM *%* THROUGH GATE AND SAFE *x* 

5255 SN$="YOU UNLOCK THE GATE, AND DISGUISING YOUR 
IN THE DEAD" 

5268 SN$=SN$+" GUARD'S CLOTHES, WALK UNNOTICED THR 
OUGH THE VILLAGE" 

5265 SN$=SN$+" AND THE SAFETY OF THE OUTSIDE WORLD 
. ":GOSUBSS98 

5278 END 


"IV$(F, 


Um beide Ort-Routinen aufrufen zu können, 
wird Zeile 2720 der Unterroutine, die entschei- : 
det, ob es sich um einen besonderen Ort han- 
delt, wie folgt geändert: 


2728 ON P GOSUB4599 ,48798,5108,4598 


BASIC-Dialekte 


Spectrum 

Im Listing Haunted Forest wird SN$ durch S$, IS$ 
durch T$, VB$ durch B$, IV$(,) durch VS$(,), EXSO 
durch X$() und IC$() durch I$() ersetzt. Folgende 
Zeilen werden ersetzt: 


2720 IF P=1 THEN GOSUB 4590 
2722 IFP=2 THEN GOSUB 4870 
2724 IFP=3 THEN GOSUB 5100 
2726 IF P=4 THEN GOSUB 4590 


4937 LET AS=IC$(I):GOSUB7000 
4940 IFA$S<>“" THEN LET F=f+1 


5175 IFF<>1 THEN LET S$=“THE” 
:LET AS=V$(F1):GOSUB7000 

5177 IFF<>1THEN LET S$=S$+“IS NO 
USE”:GOSUB5500:G0T05160 


5248 IFF<>3THEN LET S$=“THE” 
:LET AS$=V$ (F1):GOSUB7000 
5249 IFF<>3THEN LET S$=S$+ 
“IS NO USE”:GOSUB5500:G0T05205 


Ersetzen Sie im Digitaya-Listing SN$ durch S$, IS$ 
durch I$, VB$ durch B$, IV$(,) durch V$(,) und 
IC$() durch I$(). Ändern Sie folgende Zeilen: 


3650 LET S$="YOUR ":LET AS=VS (Fi): 
GOSUB 7000 

3655 LET S$=S$+“ IS USELESS, THE 
FORCE INCREASES” 


4520 LET V$(4,2)=STRS(INT(RND(1) 
*40+8) 
Acorn B 


Ergänzen Sie folgende Zeile im Listing Haunted 
Forest: 


190 LET GF=0 


Im Digitaya-Listing wird folgende Zeile ausge- 
tauscht: 


4520 IV$(4,2)=RND(40)+8 
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Digitaya 


28608 REM *x++3 USER PORT S/R *k#x* 

29708 SF=1 

2988 SN$="ESCAPE IS AT HAND BUT THE DDR BOOKING CL 
ERK" 

29908 SN$=SN$+" BARS YOUR WAY. HE TELLS YOU THAT HE 
HAS BEEN INSTRUCTED TO” 

3000 SN$=SN#$+" ACCEPT INPUTS ONLY. HOWEVER HE DOES 
TAKE ALL MAJOR" 

3818 SNE$=SN$+" CREDIT CARDS.” 

3928 GOSUB 5888:REM FORMAT PRINT 

3a30 : 

3948 PRINT: INPUT" INSTRUCTIONS"71IS$ 

3058 GOSUBI17O9:REM ANALYSE INSTRUCTIONS 

3d6@ GOSUBI1IOB:REM NORMAL ACTIONS 

3078 IF MF=1 THEN RETURN:REM MOVE OUT 

3080 IF VF=1 THEN3B48:REM NEXT INSTRUCTION 

3o3a IF VBS<>"GIVE* THENPRINT"I DON’T UNDERSTAND": 
GOT03948 

3100 : 

3118 REM #% INSTRUCTION IS GIVE xx 

3129 GOSUBS739:REM 15 OBJECT VALID 

3130 IFF=OTHENPRINT"THERE IS NO "zNN#:GOTO3848 :REM 
NEXT INSTRUCTION 

3149 : ‚ 

3150 REM ** IS OBJECT CREDIT CARD *x* 

3168 IF F<>S5THENPRINT"HE ONLY ACCEPTS CREDIT CARDS 
"260703948 

sı17a : 

3180 REM x*%* IS CARD CARRIED ı+* 

3198 O0V=5:G605UB5838 

3208 IFHF=BTHENPRINT"YOU DO NOT HAVE THE 
)IGOTO 39048 

3219 : 


"z1V8(5,1 


3220 SNE="THE CLERK TAKES THE CARD AND SAYS 'THAT 
WILL DO NICELY, SIR'" ; 
3230 GOSUBS888:REM FORMAT PRINT 
32498 SN$="YOU ARE ALLOWED TO PASS THE BARRIER AND 
ENTER THE USER PORT" 

GOSUBS888:1REM FORMAT PRINT 


[1 
REM #% IS DIGITAYA CARRIED x%* 
OV=6 1605SUB5838 
IF HF=1 THEN 3380:REM SUCCESS 
8 
REM #*%* FAILURE xx 
SN$="WELL DONE YOU HAVE SUCCEEDED "IN ESCAP ING 
FROM THE CLUTCHES" 
3338 SN$=SN$+" OF THE MACHINE, BUT HAVE FAILED IN 
YOUR MISSION" 
3348 SN$=5N$+" TO BRING BACK THE MYSTERIOUS DIGITA 
YA" 
3330 GOSUBS83B8:REM FORMAT PRINT 
3369 END 
3379 : 
3380 REM *%* SUCCESS x%* 
3399 SN$="CONGRATULATIONS, YOU HAVE SUCCEEDED IN Y 
OUR MISSION" 
3488 SN$=SN$+" TO RESCUE THE WONDEROUS DIGITAYA FR 
OM THE" 
3418 SN$=SN$+" CLUTCHES OF THE MACHINE. 
3428 GOSUBS889:REM FORMAT PRINT 
3438 END 
3448 : 
3458 REM xxx*%* CASSETTE PORT S/R xk%k%* 
3468 SF=1 
3479 SN$="YOU FEEL AN IRRESTISTIBLE FORCE PULL ING 
YOU TOWARDS" 
34808 SN$S=SN$+" PERMANANENT MAGNETIC SUSPENS ION" 
3498 GOSUBSS8Q:REM FORMAT 
3508 NS=d:REM START COUNTING INSTRUCTIONS 
351® REM ** INSTRUCTIONS x** 
.3528 NS=NS +1: IFNS>3THEN377B8:REM SUCKED. OUT 
3539 PRINT: INPUT” INSTRUCTIONS"; IS$ 
3548 GOSUB1788:REM ANALYSE INSTRUCTIONS 
35590 GOSUB1SI99:REM NORMAL ACTIONS 
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3568 IFMF=1THENMF=8:PRINT"YOU CAN'T MOVE...YET":GO 

T03518 

35798 IFVF=1THEN3S19:REM NEXT INSTRUCTION 

3588 IFVBS<>"USE"THENPRINT"I DON'T UNDERSTAND" :ıGOT 
03518 : 
3598 REM *%* INSTRUCTION IS USE x*x* 

36898 GOSUBS739Q:REM IS OBJECT VALID 

3618 IFF=8THENPRINT"THERE IS NO "7NNS:IGOTO35108 
3629 : 

3638 REM ** IS OBJECT BUFFER ACTIVATOR #** 
3648 IF F=8 THEN3688:REM OK 
3659 SNS="YOUR "+IVSCF,1)+" 
INCREASES" 

3668 GOSUB 58898:G60T03519:REM NEXT INSTRUCTION 
3678 : 

3688 OV=8:G0SUBS839:REM IS BUFF ACT HELD 

36998 IFHF=BTHENSNS="YOU DON'T HAVE THE "+IV#(8,1)1 
GOSUBS389:G0T0351® 

3700 : 

3718 REM *#%* SAVED x*%* 

3728 SN$="YOU USE THE BUFFER ACTIVATOR TO COUNTER 
THE PULL" 
3730 SNS=SN$+" 
UBS IDES" 

3748 GOSUBS888:!REM FORMAT 

3738 RETURN 

3768 ı 

3778 REM #%* SUCKED OUT ##* 

3788 SNS="THE FORCE BECOMES TOO STRONG AND YOU ARE 
PULLED OUT" 

3790 SNS=SN®$+" THROUGH THE CASSETTE PORT INTO MAGN 
ETIC NOTHINGNESS." 

3888 GOSUB S888:REM FORMAT 

3818 END 

4188 REM xxx%* TRI-STATE DEVICE S/R 44% 

4198 SF=1 

4288 SN$S="A LARGE SIGN SAYS 
YOU MOVE TOWARDS IT" 

4218 SN$S=SN$+" A TICKET COLLECTOR SHOUTS 
PLEASE ' 

4228 GOSUBS888:REM FORMAT 

4239 : 

4248 REM x%* INSTRUCTIONS xx 

4258 PRINT: INPUT" INSTRUCTIO ";1S$ 

4268 GOSUB1789:G0OSUB19BAM:REM ANALYSE 
4270 IFMF=1 THEN RETURN 

4288 IFVF=1THEN4248:REM NEXT INSTRUCTION 
4298 IFVBS$< >) "GIVE "ANDVBS$< >"OFFER"THENPRINT"I DON'T 
UNDERSTAND" :GOT04248 

4388 REM x%* INSTRUCTION IS GIVE ı%%* 

4318 GOSUBS738:REM IS OBJECT VALID 

4329 IFF=B8THENPRINT"THERE IS NO "7NN$:G0T04248:REM 
NEXT INSTRUCTION 

43390 : 

4348 REM *x%* IS OBJECT TICKET xx 

4358 IF F=4 THEN4488:REM OK 

4368 SN£="THE TICKET COLLECTOR SHAKES HIS HEAD AND 
SAYS" 

4378 SN$=SN$+" 'I CANNOT ACCEPT THIS "+IVS<(F,1) 
4389 GOSUBS889:G0OTO42498:REM NEXT INSTRUCTION 

4338 : 

4488 0OV=4:G60SUB5839:REM IS TICKET HELD 

4418 IFHF=ÖTHENPRINT"YOU DO NOT HAVE THE TICKET"IG 
0T04248 

4428 : 

4438 REM x* OK x*%* 

4448 SN$="THE TICKET COLLECTOR ACCEPTS YOUR TICKET 
AND ALLOWS YOU” 

4458 SN$=SN$+" TO PASS THE BAÄRRIER." 

4468 GOSUBS889:REM FORMAT 

4478 REM #x DEL TICKET FROM LIST #%* 

4488 F=2 

44938 FORJ=1T04 

4588 IF IC$CJ)=IV$(4 ,1)THENIC$(CJ)=S"":J=4 

4518 NEXT J 

4528 IV$(4 ,2)=STR$C INTCRND<TI)*48+8)):REM REALLOCA 
TE TICKET POSITION 

4538 P=15:MF=1:RETURN 


IS USELESS, THE FORCE 


INTO MAGNETIC OBLIVION. THE FORCE 5 


‘170 THIS WAY' BUT AS 


"TICKETS 


Leihbücherei 


Die Entwicklung zeit- und arbeitsparender Techniken kann für 
Programm-Projekte sehr nützlich sein. Einen Weg dazu wollen wir 
heute darstellen: den Aufbau einer Bibliothek, deren Einzelroutinen 
sich in die unterschiedlichsten Programme einbauen lassen. 


ielleicht erscheint Ihnen das strukturierte 

Programmieren sehr mühsam und um- 
ständlich — Sie können damit aber beim Pro- 
grammieren selbst und bei der Fehlersuche 
sehr viel Zeit sparen. Direkt an der Tastatur ent- 
wickelte Programme haben häufig unnötig 
komplizierte Strukturen und Algorithmen. Sol- 
che Programme lassen sich meist nur unvoll- 
ständig testen und sind zudem wegen ihrer Un- 
übersichtlichkeit schwer zu entstören. Frühzei- 
tige Planung vereinfacht dagegen die Pro- 
grammstruktur und vermeidet dadurch Fehler. 

Wer sorgfältig plant, gerät kaum in die Sack- 
gasse eines unzureichenden Programm- oder 
Fileaufbaus. Diese Sackgasse wird erst später 
sichtbar — etwa wenn nicht genügend Platz für 
ein Feld innerhalb eines Files gelassen wurde. 
Solche Probleme führen oft dazu, daß große 
Teile eines nahezu fertigen Programms völlig 
neu geschrieben werden müssen. 

Wer einen Rechner mit einer richtigen 
Schreibmaschinentastatur hat, kann zwar das 
Zehnfingersystem lernen — die Programmein- 
gabe läßt sich damit jedoch nur unwesentlich 
beschleunigen. Aber es gibt andere Wege, 
schneller zu programmieren. Der erste Schritt 
dazu ist, beim Programmieren bestimmte Re- 


DATUM 


o 
B DorBY NR 2 


ci ouN! 


geln einzuhalten: die Verwendung bestimmter 
Namenstypen für die Bezeichnung lokaler Va- 
riablen, die sie von Variablen des Hauptpro- 
gramms unterscheidbar machen, der Beginn je- 
des Unterprogramms mit Zeilennummern, die 
auf 000 enden und der Abschluß aller Unterpro- 
gramme mit RETURN in einer eigenen Zeile. 
Außerdem sollte jeder besondere Unterpro- 
gramm-Typ in festgelegten Zeilenblöcken lie- 
gen (Unterprogramme für das Filehandling 
etwa zwischen 9000 und 9999, Utilities von 50000 
aufwärts und so weiter). 


Komfortprogramme 


Das Einhalten dieser Regeln bringt eine Menge 
Vorteile: Kein Suchen mehr nach der Menü- 
Routine — sie steht immer wieder am selben 
Platz. Nie wieder die bange Frage, ob etwa der 
gleiche Variablenname im Haupt- und im Unter- 
programm vorkommt — schon der Name macht 
Lokalvariablen sofort identifizierbar. 

Die genannten Techniken sind auch beim Er- 
stellen Ihrer Programmbibliothek sinnvoll. Bei 
guter Organisation können Sie damit Pro- 
gramme in der Hälfte der üblichen Zeit fertig- 
stellen. Am besten bauen Sie Ihre Bibliothek 


Ohne übersichtliche 
und einheitliche Doku- 
mentation sind Pro- 
grammbibliotheken un- 
brauchbar. Das trifft 
besonders für Anwen- 
der zu, die mit dem 


‚Cassettenrecorder ar- 


beiten: Es ist eine sehr 
undankbare Aufgabe, 
eine Cassette ohne In- 
haltsverzeichnis mit 
LOAD und LIST zu 
durchsuchen! 
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aus Teilen bereits vorhandener Programme auf, 
die wichtige Abläufe behandeln (Ein/ Ausga- 
beprogramme, Datums-Unterprogramme, Um- 
wandlung von Groß- in Kleinbuchstaben etc.). 
Jede Routine wird als einzelnes File gespei- 
chert, wobei man die Programmteile ihrer Funk- 
tion entsprechend zu Gruppen zusammenfas- 
sen und gemeinsam auf einer Cassette unter- 
bringen kann. In einer ausführlichen Kartei bzw. 
Datenbank sollten Variablennamen, Eingabe- 
parameter und Funktionsweise der einzelnen 
Unterprogramme dokumentiert werden. 

Jedes Programm der Bibliothek muß selbst- 
verständlich gründlich getestet sein. Weil die 
Routinen innerhalb „fremder“ Programme lau- 
fen, müssen sie unzulässige Dateneingaben si- 
cher erkennen. Auch die ausgegebenen Daten 
dürfen im Gesamtprogramm keine Probleme 
erzeugen. Die Unterprogramme müssen aus- 
reichend interne Dokumentationen enthalten, 
damit Sie ihre Funktion auch späternoch verste- 
hen. Ihre Bibliothek sollten Sie nur bei Bedarf 
ausbauen — Programmteile „auf Verdacht“ zu 
erstellen, lohnt erfahrungsgemäß nicht. Die Zei- 
lennummern Ihrer Bibliotheksprogramme müs- 
senimmer der von Ihnen gewählten Festlegung 
entsprechen — das erspart beim „Zusammen- 
bau“ der Programmteile ein zeitraubendes 
RENUMbernn. Sie müssen natürlich nicht jedes 
Programm selbst schreiben. Computerzeit- 
schriften drucken häufig neben kompletten 
Programmen, aus denen selbstverständlich 
auch nur Teile verwendet werden können, auch 
Listings nützlicher Unterprogramme ab. 

Um die Bibliothek zu nutzen, ist eine Methode 
zum Einbau der Routinen in ein Gesamtpro- 
gramm nötig. Wer mit komplizierten Sprachen 
arbeitet, besitzt meist auch den dazugehörigen 
„ink-loader“, der einzelne kompilierte Module 
zu einem kompletten Programm vereinigt. So- 


Der MERGE-Befehl 


@ Der Sinclair Spectrum hat eine besonders 
einfache Version dieses Befehls: Er mischt 
(merge — mischen) die bezeichneten Files 
mit dem Speicherinhalt. Bei übereinstimmen- 
den Zeilennummern wird die Programmzeile 
im Speicher überschrieben. 

@ Beim Acorn B wird mit dem Befehl 
*SPOOL eine ASCII-Version der Programm- 
files erzeugt. Mit einem selbstgeschriebenen 
BASIC-Programm (oder einem Textverarbei- 
tungsprogramm) kann man danach auf ein- 
zelne Programmzeilen innerhalb der Files zu- 
greifen und sie zu einem dritten ASCII-File 
zusammensetzen, das durch *EXEC wieder in 
ein Programm verwandelt wird. 

® Beim Commodore kopiert OPEN 1,1: CMDI: 
LIST: PRINT#1: CLOSE 1 den Speicherinhalt 
in ein namenloses ASCII-File auf der Cas- 
sette. Das zweite Programm wird geladen 
und mit einem Programm für INPUT gekop- 
pelt, welches das ASCII-File zeilenweise auf 
dem Bildschirm ausgibt. Programm anhalten 
und mit RETURN die Programme vereinigen. 


fern BASIC-Programmierer ohne Compiler ar- 
beiten, können sie für den gleichen Zweck eine 
Kombination aus RENUMber- und MERGE-Be- 
fehl einsetzen. Um eine Bibliotheksroutine mit 
einem anderen Programm zu koppeln, wird 
zuerst das Hauptprogramm geladen und der 
Platz für das Unterprogramm festgelegt. (Ein 
ausreichend großer Block ungenutzter Zeilen- 
nummern muß vorhanden sein.) Falls es not- 
wendig ist, das Bibliotheksprogramm dann mit 
RENUMber so verändern, daß es in den freien 
Block hineinpaßt. Mit MERGE werden die bei- 
den Programme zusammengefaßt. Wenn alles 
nach Wunsch funktioniert, kann das neue Pro- 
gramm geSAVEd werden. 

Oft arbeiten Computerfreunde beim Erstel- 
len neuer Programme in einer Schulgruppe 
oder im User-Club zusammen. Gerade für die 
Teamarbeit sind Programmplanung und effi- 
zientes Programmieren besonders wichtig. Die 
Grundlagen der strukturierten Programmie- 
rung wurden bei dem Versuch gelegt, die Ent- 
wicklung kommerzieller Programme auf meh- 
rere Mitarbeiter zu verteilen. Jeder Program- 
mierer bearbeitete nur einen Teilbereich, das 
komplette Programm setzte sich später aus 
diesen Komponenten zusammen. 


Bindende Regeln 


Nur mit bindenden Regeln kann man auch 
BASIC-Programme auf diese Weise erstellen. 
Steht die allgemeine Programmstruktur fest, 
muß der Programmierer eines einzelnen Mo- 
duls folgendes wissen: 

1) welche Files vorhanden sind und wie sie or- 
ganisiert sein sollen, 

2) welche Vereinbarungen bezüglich der Va- 
riablenbenennung getroffen wurden. (Die Na- 
men der wichtigsten Variablen, etwa im gesam- 
ten Programm genutzter Felder, werden vorab 
bestimmt. Auch die Bezeichnung lokaler Varia- 
blen sollte festgelegt sein. Variablen, die in 
mehreren Programm-Modulen verwendet wer- 
den, sollten entweder vorher benannt oder etwa 
durch Anhängen der Nummer des erzeugen- 
den Moduls als Index deutlich erkennbar ge- 
macht werden.), 

3) welche Bibliotheks-Unterprogramme der 
Gruppe zugänglich sind (Formate, Variablenna- 
men, spezielle Funkionen und Fehlerfreiheit), 
4) wie die Fehlerbehandlung organisiert ist 
(etwa, ob jedes Teilprogramm Fehler eigen- 
ständig bearbeitet oder durch ein „Error-Flag“ 
das Steuerprogramm aufruft), 

5) die genauen Funktionen aller geplanten Pro- 
grammteile, 

6) Bereich und Typ aller Daten, die die einzel- 
nen Programm-Module als Eingabe verlangen 
bzw. ausgeben. 

Das Arbeiten nach dieser Methode verkürzt 
die Programmierzeit zugunsten der gemeinsa- 
men Strategieplanung. Die darauffolgende 
Testphase werden wir noch behandeln. 


Allzweck- 


gerät 


Die ersten Schneider-Computer 
ließen sich wegen ihres kleinen 
Arbeitsspeichers nur bedingt ein- 
setzen. Der neue CPC 6128 hat 
einen größeren Speicher und ist 
somit auch für den kommerziellen 
Einsatz interessant. 


chon ein Jahr nach der Vorstellung des 

CPC 464 hatte der Schneider in Großbri- 
tannien 25 Prozent des Heimcomputermarkts 
erobert. Die Cassettenmaschine war nach dem 
Erfolgskonzept der Hi-Fi-Produkte von Am- 
strad gebaut worden: Alle Systemkomponen- 
ten sind in einem Gehäuse untergebracht, alle 
vom Anwender gewünschten Einsatzmöglich- 
keiten sind vorhanden, und der Preis stimmt. 

Der CPC 664 ist eine erweiterte Version des 
CPC 464. Er besitzt eine integrierte Disketten- 
station und ein geringfügig erweitertes BASIC. 
Der CPC 664 und das als Erweiterung des 464 
gedachte Diskettenlaufwerk DDI-1 arbeiten 
mit CP/M und verfügen über eine Version des 
Dr. LOGO von Digital Research. 

Nur wenige Monate später stellte Schneider 
den CPC 6128 vor, der dem 664 fast völlig 
gleicht, aber mit 128 KByte RAM ausgerüstet 
ist. Der 6128 hat das Aussehen einer kommer- 
ziellen Maschine. Die Tastatur ist in einheit- 
lichem Grau gehalten. Der 464 und der 664 ver- 
fügen über separate Tastenblocks für Cursor- 
steuerung und Zahleneingaben. Auf dem 6128 
wurden diese Tasten in ein zusammenhängen- 
des Tastenfeld integriert. Dadurch ist das Ge- 
rät etwa sechs Zentimeter schmaler als der 
664. Die Bedienung wurde durch die Verringe- 
rung der Gehäusehöhe und die Verkürzung 
des Tastenweges leichter und komfortabler. 

Wie beim 664 liegen die Schnittstelle für 
eine weitere Diskettenstation und die Centro- 
nics-Druckerausgänge auf der Rückseite der 
Maschine. Die Anschlüsse für Cassettenrecor- 
der, Joystick und Lautsprecher wurden auf die 
linke Seite des Geräts verlegt, während der 
etzschalter und der Lautstärkeregler sich 
att auf der rechten Seite nun auf der Rück- 
eite befinden. Die Diskettenstation hat das 
gleiche 3-Zoll-Format (einseitig) wie beim CPC 
664, ist jedoch weitaus flacher. Auf dem Lauf- 
werk befindet sich eine Tabelle, aus der sich 
die Schlüsselzahlen für die Bildschirmfarben 
ablesen lassen. 

Zum Lieferumfang des CPC 6128 gehören 
zwei Disketten. Die eine enthält CP/M Plus — 


Ss 
Ss 


eine verbesserte Version von CP/M — und 
eine‘ Reihe von Programmierhilfen, darunter 
ein Assembler, ein Disassembler, Disketten- 
module und CP/M-Hilfsprogramme wie PIP 
und SUBMIT. Auf der zweiten Diskette befindet 
sich eine 48-KByte-Version von Dr. LOGO, die 
mit mehr als 50 zusätzlichen Befehlen eine we- 
sentliche Verbesserung gegenüber der Ver- 
sion des CPC 664 darstellt. 


Doppelter Speicher 


Die zweite Diskette enthält außerdem das 
GSX-Programm von Digital Research und ein 
HELP-Modul. GSX war der Vorläufer des GEM 
von Digital Research. Unter GSX geschriebene 
Grafikroutinen laufen auf jeder Maschine der 
280- oder 8086-Familie. Das komplette Paket 
fand bei Softwarehäusern jedoch nie große 
Verbreitung. 

Obwohl Acht-Bit-Prozessoren eigentlich nur 
64 KByte adressieren können, verdoppelt der 
mit einem Z80A ausgerüstete 6128 diesen 
Speicherraum. Dabei werden durch „Bank 
Switching“ verschiedene Bereiche von ROM 
und RAM in den Adreßraum des Prozessors 
(64 KByte) hinein- und herausgeschaltet. 


Der CPC 6128 baut auf 
dem Erfolg des CPC 
464 und des 664 auf. Er 
ist mit seinen Vorgän- 
gern softwarekompati- 
bel, verfügt aber über 
einen erweiterten Är- 
beitsspeicher mit 128 
KByte. Unter dem ver- 
besserten CP/M des 
6128 laufen die klassi- 
schen kommerziellen 
CP/M-Pakete. 
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| CP/M Plus 


| Die neue CP/M-Version des CPC 6128 hat 

| wesentliche Vorteile gegenüber der CP/M- 

| 2.2-Version für den CPC 664. Auf dem 6128 ist 
die wichtigste Eigenschaft von CP/M Plus 

| die Freisetzung von 61,5 KByte RAM für An- 

| wendungsprogramme. Damit stehen drei bis 

| vier KByte mehr zur Verfügung, als die mei- 
sten Standard-CP/M-Programme benötigen, 
und auf dem 6128 kann die Palette der 
kommerziellen CP/M-Software eingesetzt 
werden, darunter SuperCalc, dBase II und 
WordStar. 

Bei vielen CP/M-Paketen, die für Doppel- 
laufwerke oder doppelseitige Disketten ge- 
schrieben sind, kann der Aufruf eines nicht 
vorhandenen Laufwerks einen Programmab- 
bruch auslösen. CP/M Plus fängt dieses Pro- 
blem ab: Es erscheint die Aufforderung, ent- 
weder die entsprechende Diskette einzuset- 
zen oder den Befehl zu stornieren. 

CP/M Plus kann außerdem die Zeichen- 

| sätze anderer Sprachen verwenden oder wie 
ein VT52-Terminal arbeiten. 


Platz zum Arbeiten 
Die im Lieferumfang des 6128 enthaltene Ver- 
sion von Dr. LOGO besitzt viele Befehle, die 

| in der Version des CPC 664 fehlen. Durch zu- 
sätzliche Listenverarbeitung, erweiterte ma- 
thematische Möglichkeiten, Grafik, Editierung 
und Diskettenbefehle enthält das Gerät eine 
weitaus flexiblere Version dieser wichtigen 
Programmiersprache. Der Arbeitsbereich 
wurde von den 2105 Datenelementen des 
CPC 664 auf 3753 Elemente erweitert. 

Praktisch sind die Zugriffsmöglichkeiten 

auf den Drucker und E/A-Schnittstellen, mit 
denen sich auch die LOGO-Schildkröte steu- 
ern läßt. Durch verbesserte Diskettenbefehle 
lassen sich Dateien umbenennen oder von 
LOGO aus andere Laufwerke ansprechen. Mit 
den erweiterten Befehlen für Editierung und 
Fehlersuche kann man Dateien direkt von der 
Diskette in den Bildschirmeditor von LOGO 
laden und globale Variablen und Prozeduren 
im Arbeitsspeicher auflisten. 


Die Hilfsroutine BANKMAN stellt dem BASIC 
zusätzliche Befehle zur Verfügung, die den 
Umgang mit dem größeren Speicher möglich 
machen. Die 128 KByte des RAM sind in zwei 
Sektionen zu 64 KByte aufgeteilt. Da BASIC- 
Programme jedoch nur einen dieser Bereiche 
belegen können, lassen sich auch mit dem 
6128 keine umfangreicheren Programme 
schreiben als mit dem CPC 464 oder 664. Die 
zweiten, nicht für BASIC-Programme einsetz- 
baren 64 KByte lassen sich jedoch vom BASIC 
aus mit den neuen Befehlen als zusätzliche 
Bildschirm- oder Datenspeicher einsetzen. 

Da die Bildschirmanzeige 16 KByte belegt, 
können die zweiten 64 KByte vier zusätzliche 
Bildschirminhalte mit den Nummern 2 bis 5 
speichern. Der Standardbildschirmspeicher 
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BASIC-ROM 
Dieser Chip enthält 
die BASIC-Version 1.. 


8912-Sound-Chip 

Wie der CPC 464 und 
664 enthält der 6128 
einen Chip, der drei 
Stimmen erzeugen 
und die Hüllkurven 
für Ton und Lautstärke 
steuern kann. 


PIO-Chip 

Dieser Chip steuert die 
Schnittstelle für den 
Centronics-Drucker. 


Video-Steuerung 

Der Videochip steuert 
die Bildschirmanzeige 
mit 16 Farben und 

640 x 400 Pixeln. 


128K RAM 

Die zusätzlichen 64K 
RAM des 6128 können 
für kommerzielle CP/ 
M-Software eingesetzt 
werden. Sie lassen 
sich vom BASIC aus 
auch als „RAM-Dis- 
kette“ oder als Bild- 
schirmspeicher 
verwenden. 


OS-Chip “ 
Dieses ROM beinhaltet das 
Betriebssystem und Teile 
des CP/M. 


Integrierte 
Diskettenstation 
Der 6128 besitzt ein 
Diskettenlaufwerk für 
einseitige Disketten im 3-Zoll- 
Format, die jeweils 170 K spei- 
chern können. 


Block 3 


Block 2 


Anschlußbuchsen 
Der 6128 besitzt Ausgänge für einen Centronics- 


Drucker, eine Erweiterungsschnittstelle, ein zwei- Erster 64-K- - 
tes Diskettenlaufwerk, Joysticks, externe Lautspre- Bereich 

cher und einen Cassettenrecorder sowie Monitor- (von BASIC 
buchsen. eingesetzt) 


ULA 


Geänderte 
Adressen 


nicht alle 128 K RAM di- 


nur mit Programmen ar- 
beiten, die in den ersten 
64 K liegen. Die zweiten 
64 K lassen sich jedoch 
als „RAM-Diskette“ oder 
für vier zusätzliche Bild- 
: schirmspeicher einset- 
E Block 4 zen. Da der Z80A-Prozes- 
a rnranne sor nur 64 K adressieren 
. kann, wurde der zusätz- 
en lade liche Speicher in Blöcke 
zu je 16 K unterteilt. 


Dieser Spezialchip 
synchronisiert alle in- 
ternen Systemabläufe, 
Speicherbänke und 
die Bildschirmanzeige. 


N N 


Das BASIC des 6128 kann 


rekt ansprechen, sondern 


Funktionstasten 

und Cursorsteuerung 

Zur Verkleinerung des Geräts 
hat Schneider die Tasten für 
Cursorsteuerung und Funktio- 
nen näher an das Haupttasten- 
feld gerückt. Da die Return- 
Taste jetzt von anderen umge- 
ben ist, können leichter Ein- 
an. „gabefehler entstehen. 


fi 
t% 


* 


Controller für 
die Diskettenstation 
Dieser Chip steuert 
das eingebaute 
Diskettenlaufwerk. 


liegt jedoch in den 64 KByte, die auch das BA- 


» SIC verwendet. Der Befehl SCREENCOPY,A,B 
. kopiert den Bildschirm B in die 16 KByte von A 


und überschreibt dessen Inhalt, während 
SCREENSWAPA,B den Inhalt der beiden Bild- 
schirmbereiche gegeneinander austauscht. 
Ein Bildschirmaustausch kann bis zu einer hal- 
ben Sekunde dauern. Es ist jedoch möglich, 
nur jeweils ein Vierundsechszigstel des Bild- 
schirms zu kopieren oder auszutauschen. Für 
die Spieleprogrammierung bietet sich hier die 
Möglichkeit, kleine Bereiche des Bildschirms 
schnell verändern zu können. 


RAM-Diskette 


Die zusätzlichen 64 KByte lassen sich jedoch 
auch für eine Datei einsetzen. Dieser Bereich 
dient dabei als zusätzlicher Speicher, in dem 
Datensätze mit BASIC-Strings untergebracht 
werden. Da er sich wie eine Diskettendatei an- 
sprechen läßt, wird er als „RAM-Diskette“ be- 
zeichnet. Die Datensätze dieser Datei müssen 
alle gleich lang sein. Sie werden mit dem Be- 
fehl „IBANKOPEN, n“ eingerichtet, wobei n die 
Länge eines Datensatzes anzeigt und zwi- 
schen zwei und 255 liegen kann. Mit IBANK- 
READ und IBANKWRITE werden Stringdaten 
an die RAM-Disk übergeben oder von dort ge- 
lesen. Die Datensätze lassen sich aber auch 
einzeln ansprechen. Ist kein bestimmter Da- 
tensatz angegeben, so spricht das BASIC den 
zuletzt aufgerufenen (oder den ersten) Daten- 
satz an und setzt seinen Zeiger danach auto- 
matisch auf den nächsten. Der Bereich läßt 
sich damit sowohl für sequentielle wie auch für 
wahlfreie Dateien verwenden. 

Der CPC 6128 ist eine gut aufgebaute, kom- 
pakte Maschine, die viel für ihren Preis bietet. 


Schneider 
CPC 6128 


SPEICHERKAPAZITÄT 


128 K RAM, 48 K ROM. Für BA- 
SIC-Programme stehen nur 64 K 
zur Verfügung, die zweiten 64 K 
lassen sich jedoch als „RAM- 
Diskette“ oder für vier weitere 
Bildschirmspeicher einsetzen. 


ZENTRALEINHEIT 
Z80A mit 4 MHz. 


DISKETTENFORMAT 


Ein einseitiges 3-Zoll-Laufwerk, 
Anschlußbuchse für ein zweites 
Laufwerk. 


SCHNITTSTELLEN 


Erweiterungsbus, Schnittstellen 
für ein zweites Diskettenlauf- 
werk, Cassettenrecorder, Stereo- 
ausgang, Joysticks, Centronics- 
Drucker, Eingänge für 12V und 
85V, Monitorbuchse. 


MITGELIEFERTE SOFTWARE 


Zwei Disketten enthalten CP/M 
Plus, Dienstmodule für die Pro- 
grammierung, das erweiterte Dr. 
LOGO und GSX. Das CP/M 22 
sorgt für die Kompatibilität mit 
dem 664 und dem 464. 


DOKUMENTATION 


Das Anwenderhandbuch behan- 
delt die BASIC-Programmierung 
und Speicherverwaltung des er- 
weiterten Systems. Die Kapitel 
über Dr. LOGO und CP/M ent- 
halten die grundlegenden Ab- 
läufe. 


STÄRKEN 


Der CPC 6128 geht an die Gren- 
zen der Acht-Bit-Technik und 
bietet viel für seinen Preis. 
Durch seine Fähigkeit, CP/M- 
Standardprogramme verarbeiten 
zu können, läßt sich die Ma- 
schine für kommerzielle Zwecke 
und für Spiele einsetzen. 


SCHWÄCHEN 


Schneider verwendet 3-Zoll- 
Disketten statt des weitverbrei- 
teten 3 1/2-Zoll-Formats, das von 
vielen kleinen kommerziellen 
Maschinen eingesetzt wird. Da 
die Laufwerke nur einseitige 
Disketten verarbeiten können 


und einige Programme beide 
Diskettenseiten ansprechen 
müssen, wird die Bedienung 
etwas umständlich. 
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Zu den herausragend- 
sten Merkmalen des 
Music Systems gehört 
die Bildschirmdarstel- 
lung mit Piktogrammen 
und klar gestalteten 
Menüs. Die Aufnahme 
zeigt die „Keyboard 


Utility“ auf dem Schirm. 


Das Music System bie- 
tet sowohl dem Anfän- 
ger als auch dem erfah- 
renen Musiker totale 
Kontrolle über die 
Klangmöglichkeiten 
des Acorn B oder des 

C 64. Das Programm 
auf Cassette wird in 
zwei Paketen geliefert: 
Das erste enthält Syn- 
thesizer- und Key- 
board-Module, im zwei- 
ten sind Editor- und 
Ausdruck-Programm 
enthalten. 


Musik liegt ın 


der Luft 


Bei den meisten der bisher angebotenen Musikpakete muß der 
Benutzer komplexe Programme implementieren, um auch nur eine 
einzige Note zu erzeugen. „The Music System“ löst dieses Problem 
und liefert ein professionelles Programm für Acorn B und C 64. 


he Musik System von Island Logic, als Dis- 

ketten- oder Cassettenversion erhältlich, 
umfaßt eine Folge von fünf Optionen. Das Laden 
von Cassette ist umständlich, da es zwei Bänder 
sind. Doch dank der Windows, Piktogramme 
und der Grafik im Macintosh-Stil ist das System 
anwenderfreundlich. 

Das erste und meist benutzte der fünf Pro- 
gramme ist der Editor, den der Hersteller als ein 
„Notenverarbeitungssystem für Musiker“ be- 
schreibt. Es macht das Schreiben oder Verän- 
dern von Musik ungewöhnlich einfach. Aufdem 
Bildschirm sind Notenlinien für Oberstimme 
und Baßstimme dargestellt, auf die Noten ge- 
schrieben werden. Verändert man die Noten- 
werte, so werden die Taktstriche entsprechend 
dem vorgewählten Tempo automatisch einge- 
setzt. Hat man eine Melodie komponiert oder 
möchte man vorhergehende Takte hören, 
drückt man die TAB-Taste, wodurch das Audio- 
Playback ausgelöst wird und die Noten auf den 
Schirm „gerollt“ werden. 

Ein großer Vorteil dieses Systems ist, daß es 
sowohl für den Anfänger als auch für den erfah- 
renen Musiker eine große Hilfe darstellt. Der 
Anfänger sieht und hört genau, was sich in je- 


dem Stadium des Komponierens ereignet, so 
daß Fehler leicht gefunden und rasch und ge- 
nau korrigiert werden können. 

Mit der Song- und Sound-Bibliothek steht 
eine Fülle von Grundrhythmen zur Verfügung. 
Ferner gibt es bekannte Melodien, die gespielt 
und verändert werden können, darunter Mo- 
zarts Klaviersonate in Es-Dur und den Hummel- 
flug. Das Tempo läßt sich von 30 Takten pro Mi- 
nute bis auf 200 pro Minute steigern. Damit sind 
beim Modifizieren einzelner Musikstücke un- 
geheuer aufregende Resultate möglich. 

Die in Verbindung mit dem Editor und der Ta- 
statur-Option arbeitende Synthesizer-Funktion 
wird zur Gestaltung beliebiger Klänge verwen- 
det. Jeder Klang läßt sich durch Setzen der Para- 
meter einer Hüllkurve definieren. Die Disket- 
tenversion verfügt zudem über 15 verschiedene 
Percussion-Effekte. Wie bei den anderen Mo- 
dulen ist das Editieren sehr einfach. Für jeden 
Parameter steht ein separates Piktogramm auf 
dem Bildschirm, und die Klänge hört man schon 
bei der Eingabe. Grafiken der Frequenzen und 
Amplituden lassen sich leicht darstellen. Syn- 
thesizer-Klänge werden in zwei Files gespei- 
chert und können dann in den Editor oder das 
Keyboard geladen werden. 

In der Keyboard-Option stehen die beiden 
mittleren Oktaven einer Klaviertastatur auf dem 
Bildschirm zur Verfügung, wobei die QWERTY- 
Tastenreihe des Rechners die Funktion der 
weißen, die Zahlentasten die der schwarzen Ta- 
sten haben. Unterhalb des Keyboards befindet 
sich ein Fenster, das die Piktogramme für Hüll- 
kurve und Lautstärke enthält. 

Die zwei ausführlichen Handbücher sollte 
man sorgfältig durcharbeiten, um das Pro- 
gramm optimal nutzen zu können. 


Musterhaft 


Wir beschäftigen uns weiterhin mit der Mustererkennung und 
entwickeln ein BASIC-Programm für diese Aufgabe. 


ogenannte „bottom-up“-Mustererkennungs- 

Systeme versuchen, aus einem gegebe- 
nen Bild herausragende Merkmale zu isolieren 
und diese dann in ein einfacheres, abstrakte- 
res Muster umzuwandeln. Eine Methode be- 
steht darin, zum Abtasten lokale Operatoren zu 
verwenden. Jeder lokale Operator tastet einen 
kleinen Bereich ab und multipliziert die Grau- 
dichte der Punkte nach Gewichtungsfaktoren. 
Diese Faktoren sind so angelegt, daß sie hohe 
Zahlen erzeugen, sobald das gesuchte Merk- 
mal lokalisiert wurde. Durch Verwendung 
einer Vielzahl unterschiedlicher lokaler Ope- 
ratoren können die Positionen wichtiger Merk- 
male herausgelesen werden. 

Das WISARD-Programm, das in der vorher- 
gegangenen Folge beschrieben wurde, be- 
dient sich des Prinzips der „Speicheradressen- 
Generierung“, um sich ein Muster zu merken 
und es später wiederzuerkennen. 

Der Vorteil von WISARD ist, daß alle RAM- 
Bänke parallel adressiert sind. So kann es mit 
hoher Geschwindigkeit scharfe Fernsehbilder 
verarbeiten. Unser Beispielprogramm in BASIC 
simuliert ein solches System sequentiell. Es ist 
erheblich langsamer, demonstriert aber die 
dabei berücksichtigten Techniken. 


In diesem System werden „Versechsfacher“ 
(Sextuple) als Diskriminatoren verwendet (die 
zwar weniger leistungsfähig als Verachtfacher 
sind, dafür aber weniger Speicherplatz benöti- 
gen). Dafür sind 20480 (40 x 64 x 8) RAM-Bit 
oder 2560 Byte erforderlich. Der Grund ist: Wir 
haben 40 Versechsfacher, die sich in 64 ver- 
schiedenen Stadien befinden können und so- 
mit in der Lage sind, eine RAM-Bank von 64 
Plätzen zu adressieren. Jeder Platz enthält acht 
Bits, womit es dem System möglich ist, zwi- 
schen acht Eingabe-Gruppen zu „diskriminie- 
ren“ (zu unterscheiden). 

Das Programm besteht aus zwei Phasen: Im 
Trainingsstadium werden dem Computer Bei- 
spiele für unterschiedliche Eingabegruppen 
beigebracht. In der zweiten Phase werden Mu- 
ster erkannt, indem die Bilder mit den gespei- 
cherten Beispielen verglichen werden. 

Nehmen wir als Beispiel an, daß während 
der Trainingsphase der Versechsfacher Num- 
mer 20 die Zahl 1100 10 (50) ausgibt, wenn ein 
Muster der Klasse 4 vorliegt. In diesem Fall 
wird das vierte Bit an Platz 50 von RAM-Bank 20 
auf 1 gesetzt. Reagiert während der Wiederer- 
kennungsphase der Diskriminator wieder mit 
einer 50, stellt er fest, daß das vierte Bit in die 


Das am Imperial Col- 
lege, London, von Igor 
Aleksander entwickelte 
WISARD-System ver- 
wendet ein 512 x 512- 
Muster und ein RAM 
von einem Megabyte 
zur Erkennung von Mu- 
stern, die auf einem 
Fernsehschirm darge- 
stellt werden. Es ist so 
empfindlich, daß es 
zwischen lächelnden 
und ernsten Gesichtern 
unterscheiden kann. 
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betreffende Adresse gesetzt wurde. Daraufhin 
ist das Vorhandensein eines Musters der Num- 
mer 4 anzunehmen. 

Eine Reihe von Bytes, bei D beginnend, wird 
für die Speicherung der Muster-Daten verwen- 
det. Das komplette Array wird vor jedem 
Durchlauf „gesäubert‘. Das erfolgt durch die 
Subroutine 1000. Die Subroutine 2000 ermög- 
licht Ihnen, 16 mal 16 Bit große Muster auf den 
Bildschirm zu zeichnen. Dabei werden die Ta- 
sten U, D, L und R für die Cursorsteuerung be- 
nutzt, und durch * und Leertaste wird das Mu- 
ster erzeugt. 

Das Programm kann derart modifiziert wer- 
den, daß das Speichern des Array D auf Dis- 
kette oder Cassette möglich wird. Sie könnten 


Mustererkennung 


0 REM Hear 
30 REM ** BBC WISARD-TYPE . 
40 REM ** PATTERN RECOGNIZER ** 
50 REM EIERN 
55 MODE 7 
56 SXY=40: DS%=6: RB4=2"DS% 
57 MEMOZ=SX/#RB/ 
60 DIM 1%X(16,16), CSX(7) 
64 DIM DA MEMO% 
65 9%=4 : REM 0/p format 
66 REM D% is a byte-array (BBC) 
70 REM -- IX is image array, D% is address array, 
80 REM -- Note: 1% contains either 0 or I 
85 PRINT "Total RAM size = ";MEMO%;" bytes." 
88 GOSUB 1000: REM clear DA array. 
90 REM -- First the Training Phase: 
92 MO0OD$="Training" 
95 INPUT "Which class is it (0..9 ",C% 
96 IF C4<0 OR C%>7? THEN GOTO 90 
100 FOR 1%=1 TO 16: FOR J4=1 TO 16: IX(IA,JX)=0 
101 NEXT: NEXT 
110 REM -- Now get user-painted image: 
120 GOSUB 2000 
130 R=RND(-1): REM random seed value 
140 FOR 1%=1 TO SX% 
150 AX=RBA * (17-1) 
155 REM AX is base address of RAM-bank. 
180 FOR J4=0 TO (DSA-1) 
170 RIZ=INT(CRND(1)#16 + 1) 
180 R24=INT(CRND(C1)#16 + 1) 
190 AdeA%+ IXCRIZ,R2%) * 2°3% 
200 NEXT J% 
202 REM RiX and R2% are ’random’ co-ords. 
210 PROCdset(A7,C%) 
220 NEXT 1% 
230 INPUT "Another training session (Y/N) *, A$ı 
IF A$="Y" THEN GOTO 90 
233 IF A$="y" THEN GOTO 90 
235 MO0D#="Recognition" 
236 REM -- Now the recognition phase: 
240 FOR I%=1 TO 14: FOR JX=1 TO 16 
244 1%(1%,9%)=0 
245 NEXTı NEXT 
250 REM -- Get an image for classification: 
2650 GOSUB 2000 
270 R=RND(-1) # 
280 FOR C%=0 TO 7: CSACCK)=0: NEXT 
290 FOR I4=1 TO 5X% 
300 AX=RB/ * (IX-1) 
310 FOR J4=0 TO DS4-1 
320 RIZ=INT(RND(I)#16 + 1) 
330 R24=INTCRND(I)#I& + 1) 
340 AX=AA+IKCRIZ,R2X) * 2°9% 
350 NEXT 2 
355 FOR C4=0 TO 7 
360 IF FNdget(AX,CH) > 0 THEN CSACCHI=CHACCH) +1 
370 NEXT CA 
380 NEXT I% 


CXZ=0 

385 FOR CX=0 TO ? 

388 PRINT "Class";5C%;" has a score of ";LSACCH)/ 
8X4*100;3SPC(8) 

390 IF CSACCH)IICSACCX“) THEN CXZ=CH 

400 NEXT CA 

404 PRINT "Most likely class is no. "50% 

410 INPUT "Do you want to classify another image 
(Y=eYes) ", A 

420 IF A$="Y" OR A$="y" THEN GOTO 240 

440 PRINT: PRINT "Bye!" 

444 END 

999: 

1000 REM -- Memory Initialization: 

1010 FOR 1%=0 TO MEMO% 


das System auch so abändern, daß es mit der 
„Außenwelt“ durch einen A/D-Wandler ver- 
bunden ist (beispielsweise mittels Kamera). 

Die Anordnung der Punkte zu Sechsergrup- 
pen ist zwar zufallsgesteuert, muß aber wie- 
derholbar sein. 

Das Musterbild wird in einem zweidimensio- 
nalen Array,l(,) festgehalten. Dabei stellt 1 
einen Stern, O0 einen Leerraum dar. In der Trai- 
ningsphase werden Adressen durch zufällig 
ausgewählte I-(‚)-Elemente generiert. Das ent- 
sprechende Bit wird in Zeile 210 gesetzt. In der 
Erkennungsphase muß dieselbe Sequenz zu- 
fällig gewählter Adressen generiert werden, 
um das zu testende Muster mit den zuvor er- 
lernten Klassifikationen zu vergleichen. 


1020 REM -- uses byte-subscripting (?): 
1030 ?CDX+1%)=0 


1040 NEXT 

1050 RETURN 

Ie9 

1200 DEF PROCdset(AY4,C%) 
1210: REM + 


1220 ?CDA+HAX) = (DAPAX) OR 2°C% 
1230 ENDPROC 
1240 REM sets a bit in DA array 


1244 : 
1250 DEF FNdget(AY,C%) 
5260 REM ==-- 


1270 =(DXA?PAX) AND 2°C% 

1280 REM extracts bit from DA array 
1288 REM AX is address; [X is 0..7 
1290 : 

2000 REM -- Image-making Routine: 
2010 CLS: PRINT TAB(0,20);5"CUse: U, D, L, R, %, * 
or space" 

2012 PRINT "to define the image.)" 
2013 PRINT MOOD$;" phase." 

2015 PRINT TAB(1,1); 

2020 TY=0: As=" " 

2030 Heil: VX=1 

2040 REPEAT C$=INKEY$(222) 

2050 IF C$="U" THEN VA=V4-1 

2060 IF C#="D" THEN VA=V%Hl 

2070 IF C#="L" THEN Hi=H4-1 

2080 IF C$="R" THEN HZ=H4+1 

2090 IF HA>16 THEN HX/=1 

2095 IF H4£1 THEN HZ=16 

2100 IF V%)16 THEN VX=1 

2105 IF V%<1 THEN VX=16 

2110 IF C$=" " THEN T%=0: A$=C$ 
2120 IF C$="*" THEN T/=1: A$=C# 
2130 IXCHX ,UA)=T% 

2140 PRINT TABCH% ,VX) 3A$; 

2150 UNTIL C$="x" 

2155 GOSUB 2200 : REM Re-display 
2160 RETURN 

2170 ı 

2200 REM -- display Routine: 

2210 FOR H/=1 TO 16 

2220 FOR WX=1 TO 16 

2230 IF IXCH%,V%)>0 THEN PRINT TABCHX,V%);5":" ELS 
E PRINT TABCHA,,UX 35" "5 

2240 NEXT: NEXT 

2250 PRINT TAB(0,17; 

2260 RETURN 

2270 : 

2300 REM ‘painting’ commands are: 
2301 REM U & D for Up and Down; 
2302 REM L & R for Left and Right; 
2303 REM * & space for On and Off; 
2304 REM X to exit (image done). 


Commodore 64 


10 REM **x** CBM 44 PATTERN x##*%* 

20 REM xx%** RECOGNI SER *er%* 

30 FORI=1 TO 25:DW$=DWS+CHR$(C17) NEXT I 
56 5X=40 :DS=4:RB=2*DS 

57 ME=SX#RB 

%0 DIM 1I(16,16),C(8) 

64 D=12*409&:REM USE $C000- FOR D ARRAY 
85 PRINT"TOTAL RAM SIZE=";ME;" BYTES" 
88 GOSUB 1000:REM CLEAR D ARRAY 

90 REM ***%* THE TRAINING PHASE ##**%* 

92 M$="TRAINING" 

95 INPUT"WHICH CLASS IS (1...8)";C 

96 IFC<1 OR C>8 THEN 95 

100 FOR I=1 TO 16:FOR J=1 TO 16:1(1,J)=0 
101 NEXT J:NEXT I 

110 REM ***%* NOW GET USERPAINTED IMAGE #%*%*%* 
120 GOSUB 2000:REM IMAGE MAKER 


Ein Teil der 
Bilddaten 
(digitalisiert) 


Ausgabe 


Horizontaler 
Detektor 


Vertikaler 
Detektor 


130 R=RND(-1):REM RANDOM SEED VALUE 

140 FORI=1 TO SX 

150 A=RBx(I-1) REM CALC ADDRESS OF RAM BANK 
160 FOR J=0 TO (DS-1) 

170 RI=INTCRND(1)*16+1) :RZ=INTERNDC1D#16+1) 
190 A=AtICRI ,R2I#2"J 

200 NEXT J 

210 POKE(D+A) ,(PEEK(D+A) OR 2°C-1)) 

220 NEXT I 

230 INPUT"ANOTHER TRAINING SESSION CY/N)" jA% 
233 IF A$="Y" THEN 90:REM REPEAT 

234 REM **** NOW RECOGINITION PHASE ###* 
235 M$="RECOGNITION" 

240 FOR I=1 TO i6:FOR J=1 TO 16 

244 1(1,)=0 

245 NEXT JıNEXT I 

250 GOSUB 2000:REM GET AN IMAGE FOR CLASSIFICATION 
'270 R=RNDC-1) 

280 FORC=1 TO 8:C(C)=0:NEXT C 

290 FOR I=1 TO 5X 

300 A=RBX(I-1) 

310 FOR J=0 TO DS-1 

320 RI=INTCRND<1)*16+1) IRZ=INTERNDC1I#16+1) 
340 A=AtICRi,R2)%*2°J 

350 NEXT J 

355 FOR C=1 TO 8 

360 IF CPEEK(D+A)AND 2° CC-1))>0 THEN CCC)=CcC)+1 
370 NEXT C 

380 NEXT I 

381 PRINTCHRS(147) 

392 CX=0 :X=0 ıY=17:60SUB 3000 

385 FOR C=1 TO 8 

388 PRINT"CLASS"C"HAS A SCORE OF" ;CCC)/5X#100 
390 IF CCCIICCCX) THEN CX=C 

400 NEXT C 

404 PRINT"MOST LIKELY CLASS IS NO." ;Cx 

410 INPUT "CLASSIFY ANOTHER IMAGE (Y/ND" jA® 
420 IF At="Y" THEN 240:REM REPEAT 

444 END 

999 ı 

1000 REM *###** INIT MEMORY 

1010 FOR I=0 TO ME:POKE(D+I) ,O:NEXT I 

1030 RETURN i 

1040 ı 

2000 REM **** IMAGE MAKER #w* 

2005 PRINTCHR$(147) 

:2010 X=0:Y=20:G0SUB 3000 :PRINT"USE U,D,L,R,X,* OR 
SPACE" 

2012 PRINT"TO DEFINE THE IMAGE" 

2013 PRINTM$5" PHASE 

2015 X=1:Y=1:G0SUB 3000 

2020 T=0:A$=" ":H=1ıV=1 

2040 GET C# 

2050 IF C$="U" THEN VeV-1HIF XI THEN Ve16 
2060 IF C$="D" THEN V=V+HlsIF V>16 THEN Val 
2070 IF C$="L" THEN H=H-I:IF H<1 THEN Hei6 
2080 IF C$="R" THEN H=H+1:IF H>16 THEN Hei 
2110 IF C$=" * THEN T=01A$=C$ 

2120 IF C$="*" THEN T=1:A$=C$ 

2130 ICH,W=T 

2140 X=H:Y=V:GOSUB 3000 :PRINTAS; 

F C$<>"X" THEN 2040 

OSUB 2200 

2160 RETURN 

2170 : 

2200 REM ###* DISPLAY ROUTINE xxx 

2210 FOR Hei TO 16 

2220 FOR V=1 TO 16 

2230 X=H:Y=V:GOSUB3000:IF ICH,V)=0 THEN PRINT" :" 16 
0102240 

2235 PRINT" "; 

2240 NEXT V:NEXT H 

2250 X=0:Y=17:G0SUB 3000 

2260 RETURN 

2270 : 

3000 REM **** TAB COMMAND xxx 

3010 PRINTCHR®(19) ;TABCX) 5LEFTSCDWS,Y)5 
3020 RETURN 


Bilddaten 
(digita- 
lisiert) 


Generierte 
- 177 


Achtergruppe 


Gruppen von acht 
Punkten werden will- 
kürlich zu Acht-Bit- 
Registern verbunden, 
um die Basis des WI- 
SARD-Mustererken- 
nungssystems zu bil- 
den. Jede Achtergruppe 


(octuple) entspricht 
einer Bank von 256 
Speicheradressen. In 
der Trainingsphase 
stellt der Wert der Ach- 
tergruppe eine Adresse 
innerhalb seiner RAM- 
Bank dar. Eine 1 wird 


BASIC-Dialekte 


Spectrum 2 

Der Spectrum verfügt nicht über bitweise AND- 
und OR-Anweisungen. Wir haben deshalb einige 
kurze Maschinencode-Routinen geschrieben, die 
diese Anweisungen ersetzen. Sie sind in Form 
eines BASIC-Loaders gegeben. Dabei sind fol- 
gende Änderungen (bei der C64-Version) durch- 
zuführen: 


30 CLEAR 49999:G0SUB 4000 
64 LET D=50018 
130 RANDOMIZE 1 


210 LET X1=PEEK(D+A):LET Y1=21(C-1) 
:GOSUB 6000 
215 POKE(D+A),R1 


270 RANDOMIZE 1 
360 LET X1=PEEK(D+A) :LET Y1=21(C-1) 


:GOSUB 5000 
365 IFR1>OTHEN C(C)=C(C}+1 


381 CLS 


2005 CLS 
3010 PRINT AT Y,X; 


4000 FOR 1=50000 TO 50017 

4010 READ A:POKE I,A:NEXT I. 
4020 RETURN 

4030 DATA 62,0,14,0,161,6,0,79,201 
4040 DATA 62,0,14,0,177,6,0,79,201 


5000 REM **** AND **** 
5010 POKE 50001,X1:POKE 50003, Y1 
5020 LET R1=USR 50000:RETURN 


6000 REM **** OR **** 
6010 POKE 50010,X1:POKE 50012, Y1 
6020 LET R1=USR 50009:RETURN 


Links außen sehen Sie 
ein Beispiel von Muster- 
erkennung auf einer un- 
teren Ebene. Das drei- 
mal-drei-Raster enthält 
die sogenannten „loka- 
len Operatoren“, die 
die Bilddaten abtasten. 
Die Operatoren werden 
über die Bilddaten be- 
wegt, und jede Ziffer 
wird mit der Grauwert- 
intensität der Muster- 
auswahl multipliziert. 
Es entstehen hohe 
Werte, wenn das ge- 
wünschte Merkmal vor- 
handen ist. 


vor die Adresse gesetzt. 
Ist dasselbe Muster 
während der Erken- 
nungsphase vorhanden, 
wird die RAM-Adresse 
generiert, und die vor- 
handene 1 zeigt die Er- 
kennung an. 
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Minenspiel 


Bisher haben wir in unserem Projekt alle Routinen für das 
Grundgerüst des Minenfeldspiels erstellt. Nun werden Verfeinerungen 
eingebaut, die das Spiel optisch verbessern und den Spielreiz erhöhen. 


2: wird eine „Heckenschützen“-Routine 
erstellt. Dazu wird ein Schütze simuliert, der 
über das Minenfeld schießt, um das Suchgerät 
oder den Assistenten zu treffen. Das Geschoß 
wird als hochauflösende Linie dargestellt, die 
vom linken Feldrand nach rechts gezogen wird. 
Um ein Zufallselement für die Richtung einzu- 
bauen, werden die Koordinaten der Start- und 
Zielpunkte mit der RND-Funktion definiert. Die 
Werte von xstart und xfinish werden in der Pro- 
zedur „initialise variables" gesetzt. Die Diffe- 
renz zwischen den beiden Werten beträgt 1024 
Grafik-Einheiten. Wenn überprüft werden soll, 
was getroffen wurde, muß ein kurzer Teil derLi- 
nie gezeichnet, dann der Bereich auf Vorkom- 
men der logischen Farbe 1 (mittels des POINT- 
Befehls) hin überprüft und dann der nächste 
kurze Teil der Linie gezogen werden. Diese Se- 
quenz wird so lange wiederholt, bis ein Treffer 
erzielt wurde oder die Linie den anderen Rand 
erreicht hat. 

Wir müssen nun die Schrittlänge festlegen. 
Bei einer sehr kurzen Schrittlänge dauert es 
sehr lange, bis die Linie vollständig gezogen ist. 
Haben wir eine zu große Schrittlänge, können 
Treffer übersehen werden. Da jede Zeichen- 
zelle 64 Grafikeinheiten entspricht, wäre eine 
Schrittlänge von einer halben Zeichenzelle (32 
Grafikeinheiten) sinnvoll. Wird in der X-Rich- 
tung (dx) als Länge 32 festgelegt, kann die ge- 
samte Linie in 1024/32 = 32 Schritten gezogen 
werden. Werden die Y-Koordinaten des Start- 
und Zielpunkts zufällig gesetzt, kann die 
Schrittlänge in Y-Richtung (dy) durch Division 
der Werte durch 32 errechnet werden. 

Unser letztes Problem ist das Löschen der Li- 
nie. Die Lösung ergibt sich aus dem Konzept 
der logischen Farben und ihrer Fähigkeit, un- 
tereinander logische Operationen auszuführen. 
Im Modus 5 gibt es 4 logische Farben: 


Mit GCOL können verschiedene logische Ope- 
rationen zwischen der aktuellen Zeichenfarbe 
und der Hintergrundfarbe ausgeführt werden. 
Der Befehl hat zwei Parameter, wobei der 
zweite die logische Farbe angibt, in der ge- 
zeichnet wird. Der erste Parameter setzt die Zei- 
chenmethode: 


Ist an der Position, an der wir zeichnen wollen, 
die Farbe Weiß und wir wollen in Rot zeichnen, 
dann können mit den einzelnen Methoden fol- 
gende Ergebnisse erzielt werden: 


Wie lösen wir nun unser Problem? Wir könnten 


die Linie in Weiß ziehen und mit Schwarz über- 
malen, um sie zu löschen. Ist jedoch zum Bei- 
spiel eine Mine unter der Linie, würde ein 
„Loch“ zurückbleiben. Wir können aber Exklu- 
siv-OR mit Rot und der Farbe verknüpfen, die 
sich unter der Linie befindet. Wenn die Linie 
eine weiße Fläche kreuzt, erhalten wir ein gel- 
bes Liniensegment. Malen wir über dieselbe 
Fläche in Exklusiv-OR mit Rot, ist das Ergebnis: 


Weiß 11 


Die ursprüngliche Farbe wird also wieder er- 
reicht. Sie können sicherstellen, daß über zwei 
Exklusiv-ORs immer die Originalfarbe ausge- 
geben wird. Diesen Umstand nutzen wir zum 
Löschen der Linie. Wenn wir die Originallinie 
mit EOR zeichnen und dann genau dieselbe Li- 
nie erneut mit EOR ziehen, löschen wir die Linie 


und stellen den alten Fond wieder her. Nachfol- 
gend sehen Sie das vollständige Listing. 


3110DEF FROCsnipe 

3120ystart=RND(750)+220 

3130y#finish=RND(750)+220 
3140dx=32:dy=(yfinish-ystart)/32 

31506C0OL 3,3 

3160PROC1 ine 

3170IF POINT(x,y)=1 THEN PROCexplode(x,y) ELSE PRÜCI ine 
31 80ENDPROC 


Hier das Listing der Linien-Prozedur: 


3450DEF PROCI ine 

3460S0OUNDO ,-8,4,5 
3470x=xstartiy=ystart 

3480MOVE x,y 

3490REPEAT 

3500DRAW x,y 

3510x=xtdxıyeytdy 

3520UNTIL x>xfinish OR POINT(x,y)=1 
3530ENDPROC 


Wenn Sie eine musikalische Untermalung ha- 
ben möchten, können sie ein kurzes Lied ein- 
fügen. Hier ein Beispiel-Listing: 
40F90DEF PROCmusic 

4100REM *%* 1ST BAR ** 

4110SOUNDI ,-8,213,5 

4120SOUNDI ‚,-8,209,5 

4130SOUNDI ‚,-8,213,5 

4140SOUNDI1 ,-8,209,5 

4150SOUNDI ,-8,213,5 

416050UNDI ,-8,193,5 

41 70SOUND1 ,-8,205,5 

4180SOUNDI ,-8,197,5 

4190REM ** ZND BAR ** 

4200S0UNDI ,-8,185,20 

4210SOUNDI ‚,-8,165,5 

4220SOUNDI ‚,-8,185,5 

4230S0UND1 ‚,-8,193,20 

4240REM ** 3RD BAR *#* 

4250SOUNDI ,-3,165,5 

42650 SOUND ,-8,193,5 

4270SOUND1 ,-8,197,20 

4280ENDPROC 


TITELSEITE: Wir können die Technik von EOR- 
und relativen Punkt-Zeichnungen für einen Ti- 
telvorspann verwenden. Folgende Prozedur 
zeichnet das Wort MINES in hochauflösender 
Grafik. Jede neue Zeile des Wortes wird in Rela- 
tion zur vorigen Zeile gezeichnet. Deshalb kön- 
nen wir das gesamte Wort durch Angabe des 
Startpunktes an jeder beliebigen Stelle auf dem 
Schirm darstellen. Wenn wir das Wort zeichnen 
und dann mit EOR emeut zeichnen, bevor um 
eine Linie weitergegangen wird, scheint das 
Wort über den Bildschirm zu wandern. 
GCOLO0,129 erzeugt einen roten Hintergrund. 
Durch ein nachgesetztes CLG wird der gesamte 
Schirm rot. Zugleich können wir das Lied durch 
Aufruf von PROCmusic ertönen lassen. Die In- 
formation in PROCmusic wird schneller verar- 
beitet, als sie abgespielt werden kann. Deshalb 
müssen die SOUND-Informationen in einem 
Buffer abgefangen werden, bis sie gespielt 
werden. 

SCHWIERIGKEITSGRADE: Um das Spiel span- 
nender zu machen, werden Schwierigkeits- 
grade vorgegeben. Nach Darstellung des Titels 
wird eine Zahl zwischen O und 9 abgefragt, die 
in der Variablen „skill“ abgelegt ist. Damit kann 
die Anzahl von Minen im Feld sowie die Häufig- 
keit der Schüsse über den Bildschirm erhöht 
werden. Der erste Faktor kann durch Verändern 
der setup-Prozedur bestimmt werden. Verän- 
dern Sie Zeile 1930 und 1940 wie folgt: 


1930factor=ski11%*3+30 
1940PROCIay_mines(factor) 


Wir müssen beim Neusetzen der Minen in der 
reset-Prozedur die verbleibenden Minen er- 
rechnen. Ändern Sie Zeile 3950 folgenderma- 
Ben: 


3950mines_left=factor-score/150 


Das Listing für die Titelseite ist: 


1300DEF PROCtitle_page 
13106COL 0,127 

1320CLG 

13306C0OL 3,3 
1340PROCmusic 
1350Y=100 :X=0 
1360REPEAT 

1370X=X+20 :Y=Y+50 
1380F0R I=1 TO 2 
1390PROCmines 

1400NEXT I 

1410UNTIL Y>700 

1420: 

1430PROCmines 
1440PRINTTAB(0,20)"SKill factor (0-9)?" 
1450PROCmusic 
1480REPEAT 
1470sk i 1 1=GET-48 
1480UNTIL skill>-1 AND skil1<10 
1490ENDPROC 

1500: 

1S10DEF PROCmines 
1520PLOT4,X,Y 

1530REM ** LETTER M ** 
1540PLOT1,0,200 
1550PLOT1,80,-100 
1560PLOT1,80,100 
1570PLOT1,0,-200 
1580REM *%* LETTER I ** 
1590PLOT0,40,0 
1600PLOT1,80,0 
1610PLOTO,-40,0 
1620PL0OT1,0,200 
1630PL0OT0,-40,0 
1840PLOT1,80,0 

1650REM ** LETTER N #* 
1660PLOTO,40,-200 
1670PLOT1,0,200 
1880PLOT1,120,-200 
1690PLOT1,0,200 
1700REM ** LETTER E ** 
1710PL0T0,180,0 
1720PL0T1,-120,0 
1730PL0T1,0,-200 
1740PL0T1,120,0 
1750PLOTO,-40,100 
1760PLOT1,-80,0 
1770REM #* LETTER S ** 
1780PLOTO, 280,60 
17P0PLOT1,0,40 
1800PLOT1,-120,0 
1810PLOT1,0,-100 
1820PLOT1,120,0 
1830PL0T1,0,-100 
1840PLOT1,-120,0 
1850PLOT1,0,40 
1880ENDPROC 


Bisher haben wir ein zeitweise aufrufendes Pro- 
gramm zum Verbinden unserer Prozeduren ver- 
wendet. Da jetzt alle für die Hauptprogramm- 
schleife des Spieles erforderlichen Prozeduren 
assembliert worden sind, löschen Sie das auf- 
rufende Programm, und geben Sie folgendes 
Listing ein: 


2020DEF PROCIoop 

20 30REPEAT 

2040PROCupdate_time 
2050PROCtest_keyboard 
20&0rand=RND(50-sKi1l1) 

2070IF rand=!i THEN PROCsnipe 

2080 UNTIL TIME>t}2099 OR end_flag=1 
Z090ENDPROC 


Jetzt kann unser Aufruf-Programm geschrieben 
werden. Geben Sie ein: 


10&0h i_scores="00000" 

ı 11 UMODES 

11Z20REM ** TURN OFF CURSOR ** 
1130VDU23;8202;505050; 
1140PRÜltitle_page 

1150CL$S 

11S0PROCsetup 

1170: 

1180PROC1oop 
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Guter Tastsinn 


Dieser Abschnitt enthält ein Programm, mit dem der Roboter eine 
vorgegebene Fläche abtastet und die Form eines darin befindlichen 
Gegenstands auf dem Bildschirm darstellt. 


Fo Abtasten einer Fläche brauchen wir 
ein geeignetes Bewegungsmuster, mit 
dem sich das Gebiet völlig abdecken läßt. 
Eine Möglichkeit ist, den Roboter auf der Su- 
che nach einem Gegenstand vor- und rück- 
wärts über die Fläche fahren zu lassen, bis er 
auf ein Hindernis trifft. Vor dem Abtasten der 
restlichen Fläche könnte er den Gegenstand 
erst einmal von allen Seiten „vermessen“. Die- 
ser Algorithmus ist jedoch sehr schwer zu pro- 
grammieren und würde, falls mehrere Hinder- 
nisse vorhanden sind, zu Problemen führen. 
Eine andere Möglichkeit ist ein Programm, das 
den Roboter beim Berühren eines Objekts nur 
die Fahrtrichtung ändern läßt, den Tastvorgang 
aber weiter nicht beeinflußt. Hier die Einzel- 
schritte des Lösungsansatzes: 

REPEAT 

REPEAT 

Vorwärts bis zu einem Hindernis 
UNTIL Seitliche Grenze der Suchfläche 
erreicht oder Gegenstand gefunden 

Um die Breite eines Streifens versetzen 

Wenden 

UNTIL obere Grenze der Suchfläche erreicht 
Bei der horizontalen Suche werden einige 
Teile der Fläche nicht überstrichen, wenn ein 
Hindernis im Wege ist — das Gebiet dahinter 
bildet noch einen „weißen Fleck auf der Land- 
karte“. Also brauchen wir noch mindestens 
einen zweiten Suchvorgang im Winkel von 90 
Grad zum ersten Abtasten. 

Bevor der Roboter erfolgreich suchen kann, 
muß an seinen beiden vorderen Sensoren ein 
kleiner Umbau vorgenommen werden: Da die 
Räder des Roboters seitlich vorstehen, könnte 
er das Hindernis beim seitlichen Vorbeifahren 
berühren. Daher müssen die Sensoren eine 
vergrößerte Tastfläche erhalten. Jede dieser 
Tastflächen besteht aus einem Plastikrecht- 
eck, etwa 95 mm x 25 mm groß. Das Material 
muß leicht sein, damit die Sensorschalter nicht 
schon allein durch sein Gewicht geschlossen 
werden. Befestigen Sie die Tastschilder mit 
Klebestreifen oder Kontaktkleber so, daß sie 
seitlich mit der Breite der Räder abschließen. 
Danach die Sensoren testen, sie müssen sich 
weiterhin leicht öffnen und schließen! 

Unser Programm für die Flächenabtastung 
mit dem Selbstbau-Roboter wurde für je eine 
horizontale und vertikale Abtastung geschrie- 
ben. Beim Abfahren jedes Einzelstreifens wird 
eine entsprechende Fläche auf dem Bild- 
schirm eingefärbt. Nach dem Abtasten wird 


die gesamte Fläche — so, wie der Roboter sie 
„sieht“ — auf dem Bildschirm dargestellt. 

Bei beiden Programmversionen muß einge- 
geben werden, wie groß die abzutastende Flä- 
che ist. Im mode 4 des Acorn B bzw. bei Ver- 
wendung der hochauflösenden Grafik beim 
C 64 entspricht jedes Bildschirm-Pixel einem 
4x4 mm großen Quadrat im abgetasteten Ge- 
biet, das somit bei beiden Rechnern maximal 
1279x 1023 mm groß sein darf. Die Breite eines 
Abtast-Streifens beträgt für beide Programme 
jeweils 40 mm. 


Parallele Striche 


Wenn der Roboter einen Streifen abgetastet 
hat, wird die grafische Darstellung mit den Pro- 
zeduren (PROC) bzw. den Unterprogrammen 
XPLOT und YPLOT aktualisiert. Bei den mei- 
sten Computern wird der jeweilige Streifen 
einfach mit mehreren parallelen Strichen 
durch die Befehle MOVE und DRAW gezeich- 
net. Im Commodore-BASIC gibt es keine Be- 
fehle zum Zeichnen in hochauflösender Grafik. 
Wir haben daher zwei Maschinensprache- 
Routinen für diesen Zweck eingesetzt, die be- 
reits früher im Kurs behandelt wurden. Viel- 
leicht haben Sie noch Kopien der Objektfiles 
dieser Routinen, die mit Zeile 30 und 40 der 
Programmversion für den Commodore gela- 
den werden können. Alternativ können Sie 
auch die BASIC-Loader beider Routinen ver- 
wenden. Jede Routine muß einzeln geladen 
und gestartet werden, bevor das gesamte Pro- 
gramm laufen kann. Zeile 30 und 40 fallen 
dann dabei weg. 

Neben „weißen Flecken“ können auch noch 
andere Probleme auftreten. So ist es möglich, 
daß das Programm bei unterschiedlichen For- 
men oder beim Abtasten in verschiedene 
Richtungen nicht immer gleich gut arbeitet. 
Am besten funktioniert es bei rechtwinkligen 
Formen, deren Geraden mit der Äbtastrichtung 
parallel bzw. im rechten Winkel dazu stehen. 
Dreieckige und runde Formen erzeugen grö- 
Bere „weiße Flecken“, weil das Abtastmuster 
ihre Umrisse in gerade Linien verwandelt. 
Schwierigkeiten gibt es auch, wenn der Robo- 
ter beim Umsetzen auf den nächsten Taststrei- 
fen mit einem Hindermis kollidiert. Zur Verein- 
fachung werden die Sensoren während dieses 
Manövers nicht abgefragt. Eine gute Übung ist, 
das Programm durch eine weitere vertikale 
Abtastung auszubauen. 


Weiße Flecken 


Nach vertikaler Abtastung 


Bedeutung: 
—o 


Horizontal abgetastete Flächen 
— 


Vertikal abgetastete Flächen 


Nicht abgetastete Flächen 


Am einfachsten kann 
eine rechteckige Fläche 
in zwei getrennten 
Schritten abgetastet 
werden, bei denen die 
Suchrichtung um % 
Grad gedreht wird. Bei 
Berührung mit den Kan- 
ten der Fläche oder mit 
einem Hindernis „geht“ 
der Roboter um einen 
Streifen zur Seite und 
fährt in Gegenrichtung 
weiter. 

Bei dieser Methode 
bleiben hinter jedem 
Gegenstand „weiße 
Flecken“, die allerdings 
im zweiten Schritt zum 
Teil noch abgedeckt 
werden. Ganz exakt 
kann das Abtasten aber 
wegen der Breite der 
einzelnen Taststreifen 
nicht sein. Auch durch 
das gegenseitige Ver- 
decken mehrerer Ge- 
genstände treten Fehler 
leicht auf. 


Acorn B 
1@REM *%**%* BBC SHAPE SCANNER #*%** 
28MODE 4 


38PROCinitialise 
48PROCscan_dimensions 
5ePROChor iz_scan 
saPRÜCvert_scan 
78END 
8eaDEF PROChor iz_scan 
98 target=wxisense=left:xstart=d 
188REPEAT 
118REPEAT 
128PROCmove (forwards, dx) ıx=x+tdx 
138UNTIL<(?DATREG AND 192)<>neither_bumpers OR x=target 
148PROCxplot 
158dx=-dx iy=sytdyıxstart=x 
168IF target=@ THEN target=wx ELSE target=® 
178IF y<wy THEN PROCnext_strip(sense) 
188IF sense=right THEN sense=left ELSE sense=right 
198UNTIL y’zwy 
288ENDPROC 
218: 
228DEF PRÜCvert_scan 
230IF x=8 THEN sense=left:dx=width ELSE sense=sright:dx=-width 


Commodore C 64 


REM x#x%* CBM SHAPE SCANNER dikıkak 


‚28 DN=S:REM IF CASS THEN DN=I 


38 IF A=®8 THEN A=1:LOAD"PLOTSUB.HEX" ,DN,I 
49 IF A=1 THEN A=2:L0OAD"L INESUB.HEX”,DN,1 
sa GOSUBI19Bd:REM INITIALISE 

se GOSUBZAMA:REM SCAN DIMENSIONS 

78 GOSUESBBB:REM SWITCH TO HIRES MODE 

sa GOSUBIADO:REM HORIZONTAL SCAN 

998 GOSUB48B9:REM VERTICAL SCAN 

198 GOSUBS1BM:REM OLT OF HIRES MODE 

11a END 

120 : 
12998 
ıa10m 
1829 
1939 
1848 
1959 
1882 
1978 


REM x*** INITIALISE S/R k4%* 
DOR=565793:DATREG=55577 

POKE DDR,15:POKE DATREG,I 
FU=4:BUl=2:LF=6:RT=8 
PD=3.24446:PA=375798 
RB=128:1LB=64:BB=8:NB=192 
WO=49:DW=WD/18:X2=0:Y=-9:DX=DW:DY=WD 
REM *%* M/C START ADRRESSES %% 
1888 HIRES=49422:LINESUB=-49934 
1898 RETURN 

1188 : 
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Fortsetzung Acorn B 


248dy=-dw:target=8:ystart=y 
258PROCturn(sense,98) 

2S8REPEAT 

278REPEAT 

288PROCmove (forwards,dy) :iy=y+dy 
2P@UNTIL(C?DATREG AND 192)<>neither_bumpers OR y=target 
388PROCyplot 
31ddy=-dy:ix=x+tdxıystart=y 

320IF target=8 THEN target=wy ELSE target=® 
338PRüCnext_strip(sense) 

348IF sense=right THEN sense=left ELSE sense=r ight 
358UNTIL x>=wx OR x<8 

368ENDPROC 

370: 

388DEF PROCnext_strip(way) 
398PROCmove(backwards, 38) 
488PROCturn (way,9B) 

418PROCmove (forwards,width) 
428PROCturn(way,98) 

438ENDPROC 

448: 

458DEF PROCscan_dimensions 

468 INPUT"X DIMENSION IN MM" ;wx 

478 IF wx>1279 THEN 468 

488 INPUT"Y DIMENSION IN MM" zwy 

498 IF wy>1823 THEN 488 
S50dwx=width#(wx DIV width) 
Sidwy=widths(twy DIV width) 

528CLS 

S538ENDPROC 

548: 

SS8DEF PROCinitialise 
S6BDDR=&FES2 : DATREG=&KFESB 
578?DDR=15:REM LINES 8-3 OUTPUT 
588?DATREG=1:REM TURN ON RESET BIT 
SP8forwards=4:backwards=2:left=s:right=8 
s88pd_ratio=3.3444%:pa_ratio=375/98 
s1ßr ight_bumper=128:left_humper=44 
628both_bumpers=®:neither_bumpers=192 
638wi dth=48 : dw=wi dth/18 

648 x=0:y=0:dx=dwidy=width 

$3@MOVE 8,8 

&64B8ENDPROC 

678: 

$88DEF PROCmove(dir,distance) 
sP8?DATREG=(?DATREG AND 1)OR dir 
708pulses=pd_ratio*ABS(distance) 
?718FOR I=i TO pulses:PROCpulse:NEXT I 
728ENDPROC 

730: 

?748DEF PROCturn(dir,angle) 
758?DATREG=(?DATREG AND 1)0R dir 
?68pulses=pa_ratio*angle 

?78FOR I=1 TO pulses:PROCpulse:NEXT I 
?788ENDPROC 

798: 

888DEF PRÜCpulse 
818?DATREG=(?DATREG OR 8) 

828 ?DATREG=(?DATREG AND 247) 
838ENDPROC 

848DEF PROCxplot 

858FOR I1=8 TO width STEP 4 
860MWVExstart,y+I 

878DRAWx „y+I 

888NEXT I 

8PBENDPROC 

988: 

918DEF PROCyplot 

928FOR I=8 TO width STEP 4 
93OMOVEx+I ,ystart 

F4BDRAWx+1,y 

PSONEXT I 

96BENDPROC 


Fortsetzung Commodore C 64 


2908 REM #kx% SCAN DIMENSIONS Xu 
28198 INPUT"X DIMENSION IN MM"zLx 
2828 IF WX/4>319 THEN 2818 

2838 INPUT"Y DIMENSION IN MM"zWY 
2048 IF LIY74>199 THEN 2838 

29594 WR =WD% INTCLUR WO) :WY=WD% INT CWY/WD >) 
2868 RETURN 

2078 : 

3008 REM #*kx*%* HORIZONTAL SCAN #xx% 
3818 TG=LX:SE=LF:XS=® 

3928 DR=FW:DS=DX:G60SUB7888:REM MOVE 
3938 X=X+DX 

3848 IF<PEEK (DATREG)ANDIS2I=NB AND X<>TG THEN 3828 
3958 GOSUBIBMA:REM XPLOT 

3868 DX=-DX:Y=Y+DY:XS=X 

3878 IF TG=8 THEN TG=UX:GOTO 3838 

3889 TG=® 

3898 IF Y<LiY THEN WA=SE :GOSUBSBBB:REM NEXT STRIF 
3188 IF SE=RT THEN SE=LF:GOTO 3128 

3118 SE=RT 

312a IF Y<WY THEN 3028 

3138 RETURN 

3148 : 

4098 REM x#+#+% VERTICAL SCAN kr 

4818 IF X=9 THEN SE=LF:D4=WD:GOTO 4838 

49828 SE=RT:DX=-WD 

493a DY=-DY:T6=M:YS=Yy 

4848 DR=SE :AG=99:G6NSUB718B:REM TURN 

4859 DR=FW:DS=DY:GOSUB7BBO:REM MOVE 

4960 Y=Y+DY 

4070 IF<PEEK DATREGIAND1I2)=NB AND Y<>TG THEN 4858 
4888 GOSUBIIMB:REM YPLOT 

4898 DY=-DY!iX=X+DX:YS=Y 

4188 IF TG=8 THEN TG=WY:GOTO 4128 
4118 TG=® 

4128 WA=SE:GOSUBSBBB:REM NEXT STRIP 
4138 IF SE=RT THEN SE=LF:GOTO 4158 
4148 SE=RT 

4158 IF x<LUX AND X>® THEN 4858:REM REPEAT 
4168 RETURN 

4178 : 

5088 REM *x*%* ENTER HIRES xax% 

59818 POKE 49488,1:POKE 49489,1 

5028 POKE 494198,1:SYS HIRES:RETURN 
59398 : 

5108 REM 4x LEAVE HIRES ku4%* 

Ssı1a POKE 49498,8:POKE 49489,8 

5128 POKE 49418,1:SYS HIRES:RETURN 
5138 ı 

6888 REM «x4%* ENTER LINESUB ıx%4%* 

8D1M MHI=INT(X1/256):MLO=X1-2564MHI 
6828 NHI=INT(CX2/256):NLO=X2-2564NHI 
8030 POKE 48928 ,MLO:POKE 49921,MHI 
8048 POKE 49922 ,NLO:POKE 49923,NHI 
6958 POKE 49924 ,Yi1:POKE 493925,Y2 

6868 SYS LINESUB:RETURN 

65979 : 

7888 REM *#+#* MOVE (DR,DS) 4% 

7918 POKE DATREG,<PEEK<DATREG)AND 1>0OR DR 
7828 PL=PDxDS 

7838 FOR I=1 TO PL:GOSUB7288:NEXT I 
7848 RETURN 

7’es8 : 

7188 REM x4** TURN (DR,AG) ka 

7118 POKE DATREG,<PEEK (DATREG)AND 1)0R DR 
7128 PL=PAxDS 

7138 FOR I=1 TO PL:GOSUB7288:NEXT I 
7148 RETURN 

7158 : 

72088 REM xx**% PULSE x4#%* 

7218 POKE DATREG,PEEK <DATREG)OR 8 
7228 POKE DATREG ,‚PEEK <DATREG)AND 247 
7238 RETURN 

7248 : 

8888 REM #*x%& NEXT STRIP xxx 

881® DR=BW:1DS=38:GOSUB78®89:REM MOVE 
8828 DR=WA:AG=98:G0OSUB71BB:REM TURN 
8938 DR=FW:DS=WD:GOSUB7BQQ:REM MOVE 
8848 DR=1WM:AG=99:G0OSUB718B:REM TURN 
8059 RETURN 

93888 REM xxx%* KXPLOT x#4xx 

3918 FOR I=8 TO WD 

9828 K1=XS/4:Y1=(Y+D/4:X2=X/4:Y2=Y1 
99830 GOSUBEBBB:REM ENTER LINESUB 

83835 NEXT I 

93848 RETURN 

9188 REM #x%4%* YPLOT xxxx 

9118 FOR 1=8 TO WD 

9128 Ki1=(cX+1)/4:Y1=YS/4:KX2=X1:Y2=Yr74 
9138 GOSUBESOBA:REM ENTER LINESUB 

9135 NEXT I 

9148 RETURN 
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Ein- und Ausgabe 


Die Steuerung von Ein- und Ausgabe ist ein wichtiger Aspekt der 
Assemblerprogrammierung. Wir sehen uns an, was in den beiden 
Schnittstellenchips 6820-PIA und 6850-ACIA vorgeht. 


D: 6809-Prozessor hat wie der 6502 keinen 
getrennten Adreßraum für die Ein- und 
Ausgabe und kennt dafür auch keine speziel- 
len Befehle. Die Ein- und Ausgabechips liegen 
im normalen Adreßbereich und werden wie 
Speicherstellen angesprochen. Diese Me- 
thode ist zwar schnell und einfach, blockiert 
aber einen Adreßbereich. Der 6809kann daher 
trotz seines für 64 KByte ausgelegten Adreß- 
busses maximal nur 56 KByte einsetzen — 
ohne die Speicherverwaltung für Hard- und 
Software. 

Zwar lassen sich einige Ein- und Ausgabe- 
geräte direkt an den Systemdatenbus an- 
schließen, doch sitzt normalerweise ein 
Schnittstellenchip dazwischen. Diese Chips 
sind hochentwickelte Schaltungen. Üblicher- 
weise werden Chips der gleichen Prozessor- 
familie eingesetzt, da der Anschluß und die 
Steuerung darauf abgestimmt sind. Mit dem 
6809 wird für die parallele Ein- und Ausgabe 
meistens der 6820- (oder 6821-) PIA genom- 


men und für die serielle E/A der 6850-ACIA. 
Beide Chips besitzen eine Reihe von Regi- 
stern, die wie normale Speicherstellen ange- 
sprochen werden. Es gibt drei Registertypen: 
® Steuerregister: In diese Register kann nur 
geschrieben werden. Die gespeicherten 
Werte programmieren den Chip für den ge- 
wünschten Vorgang, zum Beispiel zur Festle- 
gung der Baud-Rate. 

® Statusregister: Diese „Read-Only“-Register 
zeigen den Status des Chips an. Sie geben 
Auskunft darüber, ob Eingaben empfangen 
wurden, ob die letzte Ausgabe schon gesandt 
wurde oder ob Fehler aufgetreten sind. 

® Datenregister: Hier liegen die Ein- und Aus- 
gabedaten. Sie können als Schreib/Lese- 
Speicher funktionieren oder auch als reiner 
Lese- bzw. Schreibspeicher dienen. 

Um Speicherplatz zu sparen, verwenden oft 
mehrere Register die gleiche Adresse. Wenn 
beispielsweise ein Statusregister und ein Steu- 
erregister auf einer Adresse liegen, wird beim 


Peripherie- 
steuerung 


Drucker müssen ihre 
Daten in bestimmten 
Formaten und be- 
stimmten Geschwin- 
digkeiten erhalten. Da 
es Zeitverschwendung 
wäre, die CPU mit 
dieser Aufgabe zu be- 
legen, werden die 
Zeichen an ein Peri- 
pherieinterfaceadaptor 
(PIA) gesandt, der all 
seine Zeit dafür ein- 
setzt, mit dem Drucker 
zu kommunizieren. 
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= 


Daten A 
Datenrichtung A 


Steuer/Status A 
Daten B 

Datenrichtung B 
Steuer/Status B 


Steuerregister 
Statusregister 
Daten senden 
Daten empfangen 
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Lesen das Statusregister angesprochen und 
beim Schreiben das Steuerregister. Ebenso 
teilen sich auch die Datenregister der Ein- und 
Ausgabe identische Adressen. 

Der 6820-PIA enthält sechs Register und be- 
legt vier aufeinanderfolgende Speicherbytes. 
Dabei versorgt der Chip zwei voneinander un- 
abhängige Ausgänge, die beide je drei Regi- 
ster einsetzen. Die Peripherieseite des Chips 
hat für jeden Ausgang acht Datenleitungen 
und zwei Steuerleitungen zur Verfügung. Die 
beiden mit den entsprechenden Peripherielei- 
tungen verbundenen Steuerleitungen geben 
Auskunft über den Status des Chips. Die Steu- 
erleitung 1 ist für eingehende Signale reser- 
viert, die Steuerleitung 2 kann Daten senden 
und empfangen. 

Die drei Register haben folgende Aufgaben: 

® Das Datenregister, dessen Bits sich einzeln 
setzen lassen, dient für die Ein- und Ausgabe. 
@ Das Datenrichtungsregister bestimmt, wel- 
che Bits des Datenregisters für die Eingabe 
und welche für die Ausgabe eingesetzt wer- 
den. Dafür werden die entsprechenden Bits 
des Richtungsregisters auf Eingabe (0) oder 
Ausgabe (1) gesetzt. 
® Das dritte Register dient als Steuerungs- 
und Statusregister. 
Das Datenrichtungsregister und das Daten- 
register liegen auf derselben Adresse. Ein Bit 
im Steuerregister bestimmt, welches der bei- 
den Register dieser Adresse gerade ange- 
sprochen wird. Die nebenstehende Tabelle 
gibt die Offsets für die Registeradressen von 
der Basisadresse des Chips aus an. 

Die Bits des Steuer-/Statusregisters haben 
folgende Funktionen: 


Statusbit für Steuerleitung 1. Wird bei Empfang auf 1 gesetzt. 
Lesen des Datenregisters automatisch auf Null. 


- Statusbit für Steuerleitung 2; wie Bit 7 


Bestimmt Einsatz der Steuerleitung 2 für Eingabe (0) oder 
Ausgabe (1) 
u Bestimmt Steuersignalart auf Leitung 2 


Wenn Steuerleitung 2 auf Eingabe, wird hier mit 1 ein Interrupt 
von Bit 6 möglich. Hilft bei Ausgabe, Signalart festzustellen 


Bestimmt, ob Daten- (1) oder Datenrichtungsregister (0) 
angesprochen werden 

ar Bestimmt Steuersignalart auf Leitung 1 

Ei l ermöglicht hier Interrupts von Bit 7 


Der erste Teil unseres PIA-Beispielprogramms 
versetzt einen 6820-Chip in die Lage, einen 
Drucker über eine Standard-Centronic- 
Schnittstelle zu steuern, während der zweite 
Teil die Steuer- und Datenleitungen festlegt. 
Dabei signalisiert eine Steuerleitung 
(„Strobe“) dem Drucker, daß ein Zeichen „auf 
dem Weg ist“. Der Strobe muß an die Steuer- 
leitung 2 angeschlossen sein, die auf Ausgabe 
gestellt ist. Ein Steuersignal des Druckers (ge- 


nannt „Acknowledge" — Bestätigung) zeigt an, 
daß er bereit ist, das nächste Zeichen zu emp- 
fangen. Dieses Signal sollte auf der Steuer- 
leitung 1 ankommen. Die acht Datenleitungen 
werden dazu mit den acht Datenausgängen 
des PIA verbunden. 

Für die Einstellung der PIA auf diese Auf- 
gabe müssen wir das Datenrichtungsregister 
anwählen und alle acht Bits auf Ausgabe stel- 
len, dann das Datenregister ansprechen und 
die Steuerleitung 2 ebenfalls auf Ausgabe stel- 
len. Bei der Ausführung wird das Steuer-/Sta- 
tusregister so lange gelesen, bis eine Eins in 
Bit 7 anzeigt, daß der Drucker empfangsbereit 
ist. Wir schreiben dann ein Zeichen in das Da- 
tenregister, das automatisch über die Steuer- 
leitung 2 ein Steuersignal aussendet. Nach der 
Übertragung des Zeichens wird Bit 6 automa- 
tisch auf Eins gesetzt. Das Lesen des Datenre- 
gisters löscht nun Bit 6 und 7. Dieser Ablauf 
wird so lange wiederholt, bis das letzte Zei- 
chen übermittelt ist. 

Nehmen wir an, die Basisadresse der PIA 
liegt in einer Adreßtabelle bei $3000. Beim 
Aufruf der Druckroutine enthält das Prozessor- 
register A den Index zu dieser Tabelle und Y 
die Adresse des Strings, der gedruckt werden 
soll. Der String hat Normalformat, das heißt, 
sein erstes Byte ist das Längenbyte. Die erste 
Subroutine programmiert die PIA, die zweite 
druckt den String. 

Der 6850-ACIA ist ein UART (Universal Asyn- 
chronous Receiver/Transmitter), der norma- 
lerweise für das RS232-Protokoll und für Mo- 
dems eingesetzt wird. Er besitzt vier Register 
und belegt zwei Adressen. Auf der Peripherie- 
seite des Chips liegen fünf Leitungen: eine 
Leitung für die übermittelten Daten, eine für 
die empfangenen Daten und drei Leitungen 
für den Handshaking-Betrieb. Zwei der Steuer- 
leitungen empfangen eingehende Steuer- 
signale — DCD (Data Carrier Detect) und CTS 
(Clear To Send), während die dritte das ausge- 
hende Signal RTS (Request To Send) sendet. 
Diese Leitungen werden mit gleichnamigen 
Leitungen der Standard-RS232-Schnittstelle 
verbunden. 

Die links am Rand stehende Tabelle zeigt 
die vier ACIA-Register. Mit Bit 7 des Steuerre- 
gisters werden Interrupts der empfangenen 
Daten ermöglicht. Bit 5 und 6 stellen die Über- 
tragungsinterrupts an oder ab und bestimmen 
die Art des Steuersignals, das auf der RTS-Lei- 
tung ausgesandt wird. Bit 2, 3und 4 bestimmen 
die Größe des übermittelten „Pakets“. Für die 
serielle Übertragung eines Bytes werden nor- 
malerweise mindestens zehn Bits gesandt. Das 
Anfangsbit zeigt dem Empfänger an, daß Da- 
ten folgen. Die Daten selbst können aus sie- 
ben oder acht Bits bestehen. An die Daten 
kann ein Parity-Bit angehängt sein, das zur 
Feststellung von Übertragungsfehlern dient. 
Schließlich kommen ein oder zwei Stop-Bits. 
Insgesamt gibt es folgende Kombinationen: 


gerade 
ungerade 

gerade 
ungerade 
keine 


keine 
gerade 


„eo reroo0o00o0 
-o-or-oH+ro 
oo ovmonrnH 
--.. DH» 


ungerade 


Die beiden niederwertigen Bits (0 und 1) set- 
zen einen Teiler für die Taktfrequenz und be- 
stimmen damit die Empfangs- und Übertra- 
gungsgeschwindigkeit. Da der 6850 keinen ei- 
genen Taktgeber besitzt, wird ein externer 
verwandt, der normalerweise mit einer Fre- 
quenz von 1,760 Hz arbeitet. 


l 16 
0 64 


Wenn beide Bits auf Eins stehen, wird im Chip 
ein „Master Reset“ veranlaßt. 

Die Bits des Statusregisters haben folgende 
Funktionen und werden gesetzt, wenn: 


Funktion 


7 | Interruptanforderung vorliegt 


bei Übertragung ein Paritätsfehler auftritt 


Empfänger einen Überlauf hat (es wurden zu viele Bits 


empfangen, die die zuvor gesandten überschreiben) 


4 | beim Empfang Fehler in den Rahmenbits (die falsche Anzahl 
Anfangs- und Endbits) auftritt 


3 | Signal auf der CTS-Leitung empfangen 


2 | Signal auf der DCD-Leitung empfangen 
l | Übertragungsdatenregister leer 


0 


Empfangsdatenregister leer 


Unser zweites Programmbeispiel empfängt mit 
dem 6850 eine Zeichenkette (von einem Termi- 
nal), die mit Return abgeschlossen ist. Hier 
wird zunächst der Chip programmiert und 
dann mit einer Schleife abgefragt, ob das 
Empfangsdatenregister voll ist. Ist dies der 
Fall, wird das Datenbyte gespeichert und da- 
mit Bit O des Statusregisters auf Null gesetzt. 
Dieser Vorgang wird so lange wiederholt, bis 
ein Return (ASCII-Code 13) kommt. Das Pro- 
gramm ignoriert Übertragungsfehler, die sich 
jedoch leicht abfangen lassen, indem man den 
Inhalt des Statusregisters maskiert und testet, 
ob eins der Fehlerbits gesetzt ist. Wir setzen 
dabei ein weit verbreitetes Protokoll voraus: 
acht Datenbits, keine Parität, zwei Endbits und 
eine durch 16 geteilte Taktfrequenz. Die erste 
Subroutine programmiert den Chip, während 
die zweite die Daten empfängt. 


PIA-Programm 


TABLE 


LOOP1 
LOOP2 


LOOP3 


FINISH 


EQU 
ORG 


ASLA 


LDX 
LDX 
CLR 
LDB 
STB 
LDB 
STB 
RTS 


ASLA 
LDX 
LDX 
LDA 
BEQ 
LDB 
ANDB 
BEQ 
LDB 
STB 
LDB 
ANDB 
BEQ 
LDB 
DECA 
BRA 
RTS 


$3000 
$1000 


#TABLE 

A,X 

1,X 
#%11111111 
‚x 
#%00101100 
1,X 


#TABLE 
A,X 


1,X 
#%10000000 
LOOP2 

N 

X 

1,X 
#%01000000 
LOOP3 

"X 


LOOP1 


ACIA-Programm 


TABLE 


ACIAST 


BUFFER 
CR 


LOOP 


EQU 
ORG 


ASLA 


LDX 
LDX 
LDA 
STA 
LDA 
STA 
RTS 


EQU 
EQU 
BSR 
LDY 
LDB 
ASLB 
BCC 
LDA 
STA 
CMPA 
BNE 
RTS 


$3000 
$1000 


# TABLE 

A,X 

# 00000071 
X 
#%00010001 
‚x 


S4000 

19 
ACIAST 
#BUFFER 
X 


LOOP 
1,X 
‚Y+ 
#OR 
LOOP 


Bits und Bytes 


Subroutine für das Einstellen von 
Ausgang A 


A links drehen, um mit Zwei zu 
multiplizieren (die Tabelle ent- 
hält Zwei-Byte-Adressen) 


PIA-Adresse holen 

Zugang zum Datenrichtungs- 
register verschaffen 

Alle Bits auf Eingabe setzen 


Interrupts abschalten, Steuer- 
leitung 2 auf Ausgabe setzen und 
Datenregister anwählen 


Subroutine für das Drucken eines 
Strings, dessen Adresse in Y steht 


A links drehen, um mit Zwei zu 
multiplizieren 
Basisadresse der PIA holen 


Stringlänge in A speichern 
Testen auf Länge Null 

Bereit für nächstes Zeichen? 
Alle Bits außer Bit 7 maskieren 
Falls nicht bereit 

Nächstes Zeichen holen 
Drucken 

Testen, ob Zeichen übertragen 
Bit 6 überprüfen 

Schleife starten, falls nicht bereit 


Datenregister lesen, um die Sta- 
tusbits zu löschen 


Von der Länge Eins abziehen 
Nächstes Zeichen holen 


Subroutine für die Programmie- 
rung des 6850 


Subroutine zur Einstellung des 
ACIA 


A links drehen, um mit Zwei zu 
multiplizieren (die Tabelle ent- 
hält Zwei-Byte-Adressen) 
Basisadresse des ACIA holen 


Master Reset des ACIA 
Steuerregister ansprechen 


ACIA programmieren (8 Daten- 
bits, keine Parität, 2 Stopbits) 


Subroutine zum Aufnehmen eines 
Zeichenstrin 


Hier wird der String gespeichert 


ASCII-Code für Retum 


ACIA einstellen, das X-Register 
enthält die ACIA-Adresse 


Bestimmungsort in Y 
Status holen 


Bit 7 aus dem B-Register ins Über- 
tragungsflag des CCR schieben 


Rückverzweigen, falls das Bit 


nicht gesetzt ist (keine Interrupt- 
anforderung) 


Datenbyte holen 
Datenbyte speichern 


Ist A ein Retum? 
Nächstes Zeichen 
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Das Erscheinungsbild 
des Cray-1 ist unver- 
wechselbar. Der Com- 
puter befindet sich in 
einem kreisförmig an- 
geordneten Gebilde. 
Die Stromversorgung 
liegt unter den runden 
Sitzbänken. 


Crays Fertigungsstätte 
in Chippewa Falls, Wis- 
consin. Hier werden 
hauptsächlich Chips 
hergestellt. Doch inzwi- 
schen beschäftigt sich 
Cray stark mit der Gal- 
lium-Arsenid-Technik. 
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Absolut super 


Die Cray-Familie der Supercomputer bildet die Elite der Großrechner. 

Industrie, Universitäten, Forschungslaboratorien der Regierungen sind 
Abnehmer dieser Rechner - ob nun Explosionen simuliert, Maschinen 
getestet oder Naturereignisse vorhergesagt werden sollen. 


in Computer-Hersteller, der nach dem Ver- 

kauf von nur 16 Systemen zum Jahresende 
eine Rekordbilanz ziehen kann, muß ein recht 
ungewöhnliches Produkt herstellen. — So ge- 
schehen 1983, als Cray Research den Jahres- 
bericht veröffentlichte und damit die Anzahl 
der weltweit installierten milliardenteuren 
Cray-Computer auf 65 gestiegen war. 

Das Unternehmen wurde 1972 von Seymour 
R. Cray gegründet. Er sah damals eine wach- 
sende Nachfrage nach leistungsfähigen Groß- 
rechnern voraus. Aufgrund dieser Erkenntnis 
setzte Cray Research 1983 rund 170 Millionen 
Dollar um, was einer Verzehnfachung des Um- 
satzes von vor fünf Jahren entsprach. 

Dieser Erfolg basierte auf dem ersten Pro- 
dukt des Unternehmens, dem Cray-l. Erstmals 
1976 installiert, war dieser Rechner für Jahre 
der leistungsfähigste Computer der Welt. Rein 
äußerlich wirkte er sehr unauffällig. 

Der billigste Cray-1/M-Großrechner kostet 
heute etwa 16 Millionen Mark. Einer der Haupt- 
gründe für eine so kostspielige Investition ist 
seine Simulationsfähigkeit. Zeit und Kosten für 
das Konstruieren von einem Auto-, Schiff- oder 
Flugzeug-Modell nacheinander und die sich 
daran anschließenden Tests können gewaltige 
Dimensionen haben. Der Computer wird dazu 
eingesetzt, ein „Modell“ zu konstruieren, das 
nur im Speicher des Rechners besteht, modifi- 
ziert wird und entsprechend bestimmter Varia- 
blenwerte verändert werden kann. Das so er- 
zeugte Modell läßt sich unter allen erdenk- 


Megoen 


A = a 
Ka i. 


ee 
des ern 
a 
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lichen Voraussetzungen und Bedingungen te- 
sten, selbst in Extremsituationen, die physika- 
lisch nicht herstellbar sind. Zu den Cray-Kun- 
den gehören Firmen wie Lockheed und Gene- 
ral Motors. Die Systeme machten sich dort be- 
reits nach wenigen Wochen bezahlt. Cray 
selbst stellt dazu fest, daß sich beispielsweise 
die Entwicklungskosten und -zeiten für ein 
neues Flugzeug mit einem seiner Rechner auf 
die Hälfte reduzieren lassen. 

Simulationen sind auch für Wissenschaftler, 
die Vorhersagen von Naturereignissen treffen 
wollen, ungeheuer wichtig. So benutzt zum Bei- 
spiel auch das britische Wetteramt für seine 
Vorhersagen einen Cray-1. Aus Daten, die Luft- 
temperatur, Luftdruck, Feuchtigkeit etc. an ver- 
schiedenen Orten und in verschiedenen Hö- 
hen darstellen, berechnet der Computer die 
Bewegung der Luftmassen und die Verände- 
rungen dieser physikalischen Größen über 
Stunden im voraus. Das beinhaltet eine Viel- 
zahl von Berechnungen, deren Einzelergeb- 
nisse die Folgeergebnisse beeinflussen. 

Ähnlich umfassend ist die Simulation be- 
stimmter Geschehnisse für Atomforscher, Seis- 
mologen und Wissenschaftler in vielen ande- 
ren Bereichen. Cray Research ist der Überzeu- 
gung, daß die zunehmende Verwendung von 
Computersimulationen die herkömmliche phy- 
sikalische Simulation (den Laborversuch) ab- 
löst und so eine neue Ära der Forschung und 
des Ingenieurwesens einleitet. 

Cray beschleunigt diese Revolution durch 
noch beeindruckendere Produkte. Die Cray-1/ 
S-Serie wurde von der leistungsfähigeren 
Cray-1/M-Linie abgelöst. Die X-MP-Serie ist 
noch leistungsfähiger. Diese Rechner verfügen 
über ein, zwei, drei oder noch mehr Zentralein- 
heiten und kosten bis zu 50 Millionen Mark. 
Die Speicherkapazität umfaßt bis zu acht Mil- 
lionen 64-Bit-Wörter. Der verwendete Massen- 
speicher wirkt sich sogar auf Entwicklungen 
im Heimcomputerbereich aus. Crays Disket- 
tenstationen können bis zu 10 Megabyte Daten 
pro Sekunde übertragen. 

Und wem das immer noch nicht schnell ge- 
nug ist, der bedient sich Crays SSD (Solid-State 
Storage Device) mit einer Übertragungsge- 
schwindigkeit von bis zu 2000 Megabyte pro 
Sekunde aus dem Gigabyte-Speicher. Mit der- 
artigen Maschinen wird Cray Research seine 
Spitzenposition als Computer-Wegweiser si- 
cherlich weiter ausbauen. 


Fachwörter von A bis Z 


Identification = 
Benutzeridentifikation 

In Rechnernetzen muß die Identität 
des Benutzers überprüft werden, um 
einen unberechtigten Zugriff zu ver- 
traulichen Informationen zu verhin- 
dern. Die Identifikation erfolgt meist 
in der Form, daß der Benutzer sich 
mit Namen und Benutzernummer 
beim System anmeldet („einloggt“) 
und zusätzlich ein Paßwort eintippt, 
das ihm den Zugang freigibt. 

Weil sich gezeigt hat, daß dieses 
Verfahren keinen ausreichenden 
Schutz gegen Mißbrauch durch Hak- 
ker bietet, bemühen sich Benutzer 
wie Hersteller um zuverlässigere 
Maßnahmen. Dr. Kuno Zimmerman 
von der Universität Missouri-Colum- 
bia (USA) machte zum Beispiel den 
Vorschlag, daß der Benutzer auf 
einem kleinen Grafiktablett seinen 
Namenszug hinterlassen sollte, des- 
sen charakteristische Merkmale 
dann mit dem im Rechner gespei- 
cherten Original verglichen werden. 
Es gibt Unterschriftenfälscher.... 


Handschriftliche Mitteilungen, auch Un- 
terschriften zur Benutzeridentifikation, 
können mit einem Telefaxgerät telefo- 
nisch an die jeweilige Empfängerstation 
übermittelt werden. Die Übertragung 
erfolgt geräuschlos und verschlüsselt, 
so daß Abhörversuche sinnlos sind. 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


IEEE = IEEE 

Das amerikanische „Institute of Elec- 
trical and Electronic Engineers“ ist 
1963 aus dem „Institute of Radio En- 
gineers“ und dem „American Insti- 
tute of Electrical Engineers“ hervor- 
gegangen. Dieser Verband mit welt- 
weit über 200 000 Mitgliedern gibt 
technische Normen heraus. 

Als interessierter und gestandener 
Heimcomputerbesitzer hatten Sie 
möglicherweise schon mit dem 
IEEE-488-Bus zu tun — ein verbreite- 
ter Parallelschnittstellen-Standard für 
die Peripherie. Diese IEEE-Norm 
(gesprochen: „I triple E“) schreibt 
vor, daß acht Leitungen für die byte- 
weise Parallelübertragung der Daten 
vorliegen müssen, so viele Adreß- 
leitungen, wie die höchste System- 

adresse erfordert, und Steuer- 


Auch Quittungsbetrieb (Hand- 

shaking) ist vorgesehen, um 
eine korrekte Übertragung 

sicherzustellen. Der IEEE- 

Bus ist unter anderem 
zum Datenaustausch 

\ zwischen unterschied- 

lichen Rechnern 
geeignet. Für den 
Computerfreak also 
notwendig. 


IF-THEN-ELSE = 

IF-THEN-ELSE 

Die bedingte IF-THEN-Anweisung 
gehört zum Wortschatz fast aller 
Heimcomputer. Die ELSE-Erweite- 
rung kennen leider nur die an- 
spruchsvolleren Modelle. Das voll- 
ständige IF-THEN-ELSE ermöglicht 


leitungen für Ein- und Ausgabe. 


die direkte Programmierung einer 
echten Verzweigung: Wenn die zum 
IF gehörige Bedingung erfüllt ist, 
führt der Rechner die auf THEN fol- 
gende Anweisung aus. Andernfalls 
springt er auf die mit ELSE eingelei- 
tete Alternative. Diese kann bei- 
spielsweise im Aufruf eines Unter- 
programms bestehen, das seiner- 
seits weitere Bedingungen abfragt. 
Häufig ist nur das IF-THEN zuge- 
lassen. Dann bearbeitet der Rechner 
bei nicht erfüllter Bedingung direkt 
die nächste Programmzeile, die er 
andernfalls auf dem Umweg über 
die THEN-Anweisung auch erreicht. 
Für eine echte Verzweigung müßten 
hier weitere IF-Befehle verwendet 
werden. Das ist umständlicher und 
macht die Fehlersuche schwieriger, 
als es bei der klaren Trennung mit 
IF-THEN-ELSE der Fall ist. 


Impact Printer = Anschlagdrucker 
Bei Anschlagdruckern entsteht das 
Schriftbild oder die Grafik durch me- 
chanischen Anschlag von Druck- 
werkzeugen auf ein Farbband. Zu 
unterscheiden ist im wesentlichen 
zwischen Ganzzeichen- und Matrix- 
druckern. Ganzzeichendrucker er- 
zeugen durch einmaligen Anschlag 
einer Relieftype gleich das vollstän- 
dige Symbol, während bei Matrix- 
druckern jedes Zeichen aus einzel- 
nen Punkten aufgebaut wird. 

Der Druckkopf der Matrixgeräte 
enthält dazu eine Anzahl von An- 
schlagnadeln, die elektromagnetisch 
gegen Farbband und Papier ge- 
schleudert werden, so wie es das 
Zeichen erfordert. Auch Schreibma- 
schinen gehören im Prinzip zu den 
Anschlagdruckern, werden aber nor- 
malerweise nicht dazu gerechnet, 
weil die Ansteuerung über die 
eigene Tastatur erfolgt. 


Bildnachweise 


1429, 1441, 1442, 1443: Chris Stevens 
1431, 1451, 1453: Kevin Jones 

1435: Ian McKinnell 

1439: Mike Clownes, Uta Brandl 


1444: Marcus Wilson-Smith 

1445: Tony Sleep, Computer 
Recognition System 

1447: Caroline Clayton 

U3: Steve Cross 


ea EEEEEEEEEEEEEEEEEEEEEEEEEBE 


+ Vorschau +++ Vorschau +++ Vorschau +++ Vorschau +++ Vorschau + 


computer .__ 
rS 


Geistesblitze 
2: Eine riesige Lücke klafft zwischen Theorie und 


Praxis bei der Entwicklung intelligenter 
Roboter. Eine Ideensammlung. 


Ländliche Idylle 
Kein Bauernhof ohne Computer: Hier die 


benötigte Software dazu. 


Umbaumaßnahmen 
Ey Für den Spectrum ein Interface, das einem 


User Port entspricht. Ermöglicht Teilnahme 
am Roboter-Projekt. 


Chic in Schale 
Ku Günstiger Preis und Einsatzmöglich- 


keiten als Personal- und Lerncomputer 
machen den Apricot Fle interessant. 
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